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abstract 


This  thesis  documents  the  design,  validation,  and 
demonstration  of  a  simulation  model  for  the  instream  offload 
of  vehicles  from  a  Roll  On/Roll  Off  ship.  The  model  is  an 
object-oriented,  discrete  event  simulation  written  in  MODSIM 
II.  The  objective  is  to  design  and  demonstrate  a  model  that 
can  accurately  estimate  throughput  times  for  the  total  of¬ 
fload  of  a  vessel  instream  using  various  mixes  of  lighter¬ 
age.  With  this  tool.  Logistics  Over  The  Shore  (LOTS) 
planners  will  be  better  able  to  estimate  throughput  and 
possibly  tailor  their  mix  of  lighterage  to  a  given  set  of 
fixed  parameters. 
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EXECUTIVE  SUMMARY 


Responding  to  the  collapse  of  the  Soviet  Union,  the  U.S. 
military  is  shifting  its  focus  from  global  war  and  land 
combat  in  Europe  to  regional  contingencies  in  the  third 
world.  This  new  role  of  the  U.S.  military  will  require  more 
flexibility  and  speed  than  has  ever  been  required 
previously. 

Responding  to  the  potential  requirements  to  conduct 
contingency  operations  in  highly  varied  geophysical  and  me¬ 
teorological  conditions,  the  DoD  has  developed  the  Logis¬ 
tics  Over  The  Shore  (LOTS)  system  as  an  alternative  to  the 
modern  port. 

LOTS  is  an  integrated  system  of  equipment,  personnel, 
and  procedures  used  to  load  and  unload  ships  without  the 
benefit  of  fixed  port  facilities,  in  either  friendly  or  un¬ 
defended  territory.  It  is  designed  to  provide  the 
flexibility  U.S.  forces  will  need  in  the  austere  environ¬ 
ments  that  they  are  likely  to  encounter.  LOTS  operations 
may  be  conducted  over  unimproved  shorelines,  through  fixed 
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ports  that  are  not  accessible  to  deep  draft  shipping,  and 
through  fixed  ports  that  simply  lack  the  facilities  for  ef¬ 
ficient  offload  without  LOTS  capabilities.  The  most  in¬ 
volved  form  of  LOTS,  and  the  focus  for  this  thesis,  is  the 
offload  of  equipment  and  cargo  over  an  unimproved  shoreline 
or  instream  offload. 

A  basic  problem  facing  military  planners  is  that  they 
currently  have  no  comprehensive  means  of  estimating  the 
throughput  capability  of  an  operation  for  various  mixes  of 
oceangoing  ships,  lighters,  and  material  handling  equipment 

The  objective  of  this  thesis  was  to  build  an  Object- 
Oriented  computer  simulation  model  in  MODSIM  II  that  esti¬ 
mates  the  throughput  capability  of  an  instream  vehicle  dis¬ 
charge  operation  from  a  RO/RO  type  vessel.  The  model  used 
to  generate  these  planning  factors  serves  as  a  computer- 
based  decision  aid  wherein  the  input  can  be  modified  to  al¬ 
low  a  planner  to  experiment  with  various  combinations  of 
equipment  and  shipping  configurations. 

To  ensure  that  the  simulation  model  performed  as  re¬ 
quired,  a  two  phase  process  was  used  to  first  validate,  and 
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then  demonstrate  the  model.  The  validation  phase  consisted 
of  running  the  model  using  a  real  world  scenario  for  which 
the  empirical  offload  time  was  known,  and  then  comparing  the 
two.  After  300  replications,  the  mean  offload  time  from  the 
model  compares  well  with  the  empirical  offload  time  for  the 
same  scenario. 

The  second  phase  was  to  demonstrate  the  model .  A  four 
point  design  space  was  devised  where  the  variables  were  a 
high  and  low  mix  of  lighters  at  short  and  long  distances 
from  the  beach.  As  would  expected  be  when  comparing  the 
results  of  these  four  scenarios,  the  high  mix  of  lighters 
had  a  significantly  shorter  offload  time  than  the  low  mix, 
and  the  short  distance  scenarios  had  shorter  offload  times 
than  the  long  distance  scenarios. 

In  summary,  the  model  is  valid  for  estimating  RO/RO  in- 
stream  offload  times  within  the  confines  of  the  assumptions 
made  in  the  modeling  process. 
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I.  INTRODUCTION 


A.  THE  IMPORTANCE  OP  LOTS 

Responding  to  the  collapse  of  the  Soviet  Union,  the  U.S. 
military  is  shifting  its  focus  from  global  war  and  land 
combat  in  Europe  to  regional  contingencies  in  the  third 
world.  Force  sizes  are  being  reduced  and  fewer  units  will, 
be  forward  deployed.  The  U.S.  will  depend  heavily  on  airlift 
and  sealift  to  achieve  rapid  response.  This  new  role  of  the 
U.S.  military  will  require  more  flexibility  and  speed  than 
has  ever  been  required  previously.  For  its  part,  the  U.S. 
Navy  has  shifted  focus  towards  littoral  warfare,  and  the 
ability  to  project  military  power  in  the  worlds  coastal  re¬ 
gions  is  gaining  in  importance. 

Military  and  commercial  airlift  have  been  relied  upon 
heavily  in  the  past  to  achieve  a  rapid  build  up  of  forces 
and  will  remain  a  key  asset.  Airlift  alone  has  never  been 
able  to  transport  more  than  a  small  fraction  of  the  required 
assets,  however,  and  with  fewer  land-based,  forward  deployed 
forces,  the  demand  for  airlift  will  be  far  too  large  for  a 
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reasonable  number  of  aircraft  to  accommodate.  Thus,  sea 


lift  will  play  an  ever  increasing  part. 

The  use  of  strategic  sealift  in  the  rapid  deployment, 
sustainment  and  re-deployment  of  forces  overseas  is  essen¬ 
tial  in  the  execution  of  any  US  Department  of  Defense  (DoD) 
contingency  operation.  Due  to  the  expense  of  acquiring  and 
maintaining  large  fleets  of  lift  assets,  DoD  has  turned  in¬ 
creasingly  to  the  commercial  sector  to  provide  lift.  The 
positive  aspect  of  this  is  increased  cost  savings  for  all 
concerned,  provided  there  is  no  actual  contingency.  One 
negative  aspect  is  that  commercial  shipping  has  grown 
dependent  on  fully  cellularized  containerships .  The  large 
modern  port  facilities  normally  required  to  offload  com¬ 
mercial  vessels  limits  the  flexibility  of  our  military 
forces.  In  the  regional  contingencies  that  are  likely  to 
challenge  U.S.  forces  in  the  future,  flexibility  is 
essential . 

Responding  to  the  potential  requirements  to  conduct 
contingency  operations  in  highly  varied  geophysical  and  me¬ 
teorological  conditions,  the  DoD  has  developed  the 
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Logistics  Over  The  Shore  (LOTS)  system  as  an  alternative  to 
the  modern  port . 

B.  GENERAL  DESCRIPTION  OP  A  LOTS  OPERATION 

LOTS  is  an  integrated  system  of  equipment,  personnel, 
and  procedures  used  to  load  and  unload  ships  without  the 
benefit  of  fixed  port  facilities,  in  either  friendly  or  un¬ 
defended  territory.  It  is  designed  to  provide  the 
flexibility  U.S.  forces  will  need  in  the  austere  environ¬ 
ments  that  they  are  likely  to  encounter.  LOTS  operations 
may  be  conducted  over  unimproved  shorelines,  through  fixed 
ports  that  are  not  accessible  to  deep  draft  shipping,  and 
through  fixed  ports  that  simply  lack  the  facilities  for  ef¬ 
ficient  offload  without  LOTS  capabilities.  The  most  in¬ 
volved  form  of  LOTS,  and  the  focus  for  this  thesis,  is  the 
offload  of  equipment  and  cargo  over  an  unimproved  shoreline, 
or  instream  offload. 

The  LOTS  transfer  operation  can  be  broken  down  into 
three  areas;  the  offload  of  roll-on/roll-off  (RO/RO)  ships 
through  a  RO/RO  discharge  facility  (RRDF) ,  the  offload  and 
transfer  of  containers  from  either  a  self-sustaining  or  a 
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non- self -sustaining  container ship,  and  the  transfer  of  fuel 
from  an  Offshore  Petroleum  Discharge  System  (OPDS) .  The 
first  two  operations  are  the  major  concern  regarding 
throughput.  For  the  third  operation,  once  the  OPDS  is  in 
place,  the  throughput  is  a  known  quantity  and  is  easily 
controlled. 

C.  PROBLEM 

A  basic  problem  facing  military  planners  and  LOTS  op¬ 
erational  commanders  is  that  they  currently  have  no  compre¬ 
hensive  means  of  estimating  the  throughput  capability  of  an 
operation  for  various  mixes  of  oceangoing  ships,  lighters, 
and  material  handling  equipment.  The  joint  tactical  publi¬ 
cation  regarding  LOTS  [Ref.  1]  provides  a  limited  set  of 
planning  factors  that  would  be  useful  to  planners  provided 
that  their  mix  of  equipment  falls  within  the  limited  scope 
of  these  factors. 

Conversations  with  personnel  at  the  JLOTS  Test 
Directorate  [Ref.  2]  and  personnel  in  the  Logistics  Direc¬ 
torate  of  the  Joint  Staff  [Ref.  3]  revealed  that  there  is  a 
pressing  need  for  a  comprehensive  set  of  planning  factors  as 
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well  as  some  sort  of  tool  (e.g.,  a  computer  simulation  mod¬ 
el)  that  can  be  used  by  planners  in  the  future  to  update 
these  planning  factors  as  required. 

Several  computer  based  simulation  models  of  LOTS  opera¬ 
tions  have  been  developed,  and  the  JLOTS  Test  Directorate 
has  some  of  these  models  in  hand,  but  each  of  these  simu¬ 
lations  is  written  in  a  different  language,  with  its  own 
software  and  hardware  requirements.  The  JLOTS  Test  Direc¬ 
torate  has  found  them  difficult  to  comprehend  and  impossible 
to  implement  as  an  actual  functioning  tool. 

D.  PROPOSAL 

The  limited  set  of  planning  factors  currently  available 
in  Joint  Pub  4-01.6  [Ref.  1]  is  inadequate  for  the  needs  of 
JLOTS  planners.  The  objective  of  this  thesis  is  to  build  a 
computer  simulation  model  that  estimates  the  throughput  ca¬ 
pability  of  an  instream  vehicle  discharge  operation  from  a 
RO/RO  type  vessel  through  an  rrdf  under  various  scenarios. 
The  model  used  to  generate  these  planning  factors  will 
serve  as  a  computer-based  decision  aid  wherein  the  input  can 
be  modified  to  allow  a  planner  to  experiment  with  various 
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combinations  of  equipment  and  shipping  configurations.  As 
equipment  configurations  change,  and  the  availability  of 
lighterages  varies,  the  model  can  easily  be  modified  to  re¬ 
flect  these  updates. 

Validation  of  the  model  will  be  accomplished  by 
compairing  model  results  with  real  world  figures  for  a  known 
scenario.  Further,  we  will  use  four  scenarios  to  illustrate 
the  capability  of  the  model.  These  scenarios  reflect  a 
range  of  situations  that  a  LOTS  planner  may  face  and  will 
serve  as  instruction  as  to  how  the  model  may  be  employed. 

This  thesis  is  organized  as  follows: 

Chapter  Title/Description 

I.  INTRODUCTION. 

II.  THE  LOTS  OPERATION.  This  chapter  provides  a 

brief  description  of  a  LOTS  operation 
instream  offload,  a  description  of  the 
typical  environment,  and  a  description  of 
the  equipment  used  in  the  operation. 

III.  THE  MODEL.  This  chapter  provides  a  complete 

description  of  the  simulation  model 
including  assumptions  and  input  and  output  data. 

IV.  analytical  PROCEDURES.  This  chapter 
provides  the  origin  for  model  event  times  and 
a  discussion  of  the  results. 

V.  CONCLUSIONS.  This  chapter  describes 
conclusions  and  recommendations. 
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II.  THE  LOGISTICS  OVER  THE  SHORE  OPERATION 


A.  OVERVIEW  OF  THE  LOTS  OPERATION 

Logistics  over  the  shore  involves  loading  and  unloading 
military  or  commercial  ships  in  what  would  be  considered 
less  than  ideal  circumstances.  The  operation  could  take 
place  instream  or  in  port  facilities  that  are  either  damaged 
or  in  some  other  way  lack  the  facilities  typically  required 
to  handle  a  modern  ship.  In  the  instream  offload,  the  ships 
are  located  anywhere  from  one  to  several  miles  offshore. 

The  cargo  and  vehicles  are  then  loaded  onto  various  types  of 
lighterage  for  further  transfer  over  the  beach  to  marshaling 
areas.  The  vehicles  and  cargo  then  continue  their  journey 
on  land  via  the  standard  means.  A  LOTS  system  is  composed 
of  the  following  basic  components:  [Ref.  1] 

1.  Seagoing  cargo  vessel 

2.  Off  shore  cargo  discharge  facility 

3.  Shallow  draft  lighterage 

4.  Shoreside  discharge  facility 
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The  study  of  a  LOTS  operation  can  be  subdivided  into 
four  major  areas;  vehicle  offload  from  a  RO/RO  type  vessel, 
container  offload  from  either  a  self-sustaining  or 
non- self -sustaining  container  ship,  break  bulk  offload,  and 
the  bulk  offload  of  liquids  such  as  fuel  and  water.  This 
thesis  is  focused  on  the  offload  of  vehicles  from  a  RO/RO 
type  vessel,  thus,  the  remainder  of  this  chapter  will  be 
limited  to  descriptions  of  this  operation  and  the  specific 
equipment  involved. 

A  typical  RO/RO  LOTS  operation  can  best  be  illustrated 
by  describing  what  happens  to  the  cargo  as  it  moves  from  the 
bowels  of  the  seagoing  vessel  to  the  shoreside  discharge 
site.  Figure  l  depicts  the  setup  of  some  of  the  typical 
LOTS  components  [Ref.  l] .  On  the  beach  side  of  the  opera¬ 
tion,  discharge  of  cargo  can  be  accomplished  on  a  bare 
beach,  on  an  Elevated  Causeway  (ELCAS)  or  pier  discharge 
which  could  be  either  a  floating  causeway  pier  or  the  pier 
in  an  unimproved  port.  Some  of  the  different  types  of  ves¬ 
sels  that  can  be  offloaded  using  the  LOTS  system  are  also 
depicted  in  Figure  l.  The  Non- self -sustaining  container 
(NSSC)  ship  would  be  offloaded  using  a  crane  ship  (T-ACS) , 
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the  Roll  On/Roll  Off  ship  has  a  RO/RO  Discharge  Facility 
lashed  alongside,  and  the  Maritime  Prepositioned  Ship  (MPS) 


is  being  offloaded  using  Lift  On/Lift  Off  or  LO/LO  tech¬ 
niques  as  well  as  providing  fuel  and  water  to  the  beach. 


Figure  Is  The  LOTS  Operation 


The  offload  of  a  RO/RO  can  be  accomplished  in  two  ways. 
The  first  method  is  LO/LO  operations  in  which  vehicles  and 
cargo  are  craned  off,  either  by  the  ships  organic  crane  or 
by  a  T-ACS  crane  ship.  The  second  method  is  to  use  a  RO/RO 
Discharge  Facility  (RRDF)  and  simply  drive  the  vehicles  onto 
the  lighters.  The  lighters  wait  in  queues  near  the  ship  for 
an  open  discharge  station.  When  a  discharge  station  becomes 
available  the  Ship  Lighterage  Control  Point  (SLCP)  directs  a 
lighter  alongside.  The  cargo  or  rolling  stock  is  then 
loaded  aboard  and  the  lighter  casts  off  from  the  discharge 
point  to  transit  to  the  shoreside  queue.  At  the  shoreside 
queue  the  lighter  is  directed  by  the  Beach  Lighterage  Con¬ 
trol  Point  (blcp)  to  the  first  available  discharge  point. 

The  cargo  is  then  discharged  and  proceeds  to  the  marshaling 
area.  The  lighter  then  departs  the  discharge  point  and 
control  is  transferred  from  the  BLCP  to  the  appropriate  SLCP 
which  will  tell  the  lighter  where  to  pick  up  its  next  load. 
Several  components  exist  to  perform  each  of  the  tasks  listed 
above.  They  can  operate  in  many  combinations  to  perform  the 
basic  LOTS  functions.  A  description  of  the  components 
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available  and  how  they  integrate  into  the  overall  system 
follows. 

B.  ROLL  OH/ROLL  OFF  SHIP 

There  are  many  classes  of  Roll  On/Roll  Off  ships,  but 
they  can  be  divided  into  two  basic  types  for  this  analysis: 
self-sustaining  and  non- self -sustaining.  The  major  differ¬ 
ence  is  that  a  self-sustaining  ship  has  its  own  ramp  for 
vehicle  loading  and  discharge.  In  typical  commercial 
operations  a  self-sustaining  RO/RO  would  moor  and  lower  its 
vehicle  ramp  directly  onto  the  pier  to  commence  the  offload 
of  vehicles.  A  ramp  provided  from  port  facilities  would  be 
married  up  to  a  non- self -sustaining  ship.  In  the  instream 
offload,  an  rrdf  is  assembled  and  moored  alongside  the  ship, 
and  in  the  case  of  the  self-sustaining  vessel,  the  ships 
ramp  is  then  lowered  onto  the  RRDF  platform.  In  the  case  of 
a  non- self -sustaining  ship,  a  120  foot  offloading  ramp  is 
added  to  the  RRDF.  [Ref.i] 

The  introduction  of  sea  state  and  current  can  signifi¬ 
cantly  affect  the  throughput  capability  of  an  offload.  For 
an  offload  using  an  RRDF,  operation  is  limited  to  sea  state 
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two  and  no  more  than  four  knots  of  current.  The  discharge 
of  vehicles  can  continue  using  LO/LO  operations  if  the  sea 
state  exceeds  the  RRDF ' s  parameters  somewhat .  But  LO/LO 
operations  are  also  limited  in  more  challenging  sea  states 
depending  on  the  equipment  and  the  ability  of  the  crew.  In 
any  case  LO/LO  operations  are  limited  to  sea  states  no 
higher  than  three.  [Ref.  4] 

C.  LIGHTKRAGE 

1.  LCU  1466,  1610,  and  2000  Class 

The  LCU  is  a  conventional  displacement  vessel  capa¬ 
ble  of  transporting  containers,  breakbulk  cargo,  outsized 
cargo,  vehicles  and  personnel  from  the  ship  to  the  shoreside 
discharge  point.  The  1466  and  1610  class  are  self- 
sustaining  once  deployed  to  the  theater  in  the  sense  that 
they  are  fully  equipped  to  support  their  crew  once  they  are 
delivered  to  the  area  of  operations.  The  LCU  2000  class  is 
both  self -deployable  and  self-sustaining.  All  three  classes 
are  therefore  capable  of  extended  missions  with  endurance 
based  upon  provisions  and  fuel  capacity.  All  three  LCU 
classes  are  equipped  with  twin  screws  and  a  stern  anchor,  so 
they  can  beach  and  retract  under  their  own  power.  Cargo  may 
also  be  discharged  from  LCU's  at  a  floating  causeway  pier  or 
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an  elevated  causeway  pier  (ELCAS) .  For  discharge  at  the 
beach  or  to  a  floating  causeway  pier,  rolling  stock  is 
driven  or  towed  off  over  the  bow  ramp  of  the  LCU.  If  dis¬ 
charge  is  accomplished  at  an  ELCAS  the  cargo  is  craned  off 
The  characteristics  of  the  three  classes  of  LCU  are  listed 
in  Table  l.  [Ref.  l] 

TABLE  1.  LCU  CHARACTERISTICS 


2.  Logistics  Support  Vessel  (LSV) 

The  Logistics  Support  Vessel  is  a  large  conventional 
displacement  watercraft  capable  of  transporting  large 
amounts  of  cargo  to  almost  any  port  in  the  world.  Much  like 


a  large  LCU,  the  LSV  can  carry  loads  such  as  11  Ml  tanks,  21 
M2  infantry  Fighting  Vehicles,  or  48  20 -foot  containers. 

The  LSV’s  are  both  self-sustaining  and  self -deployable. 

LSV's  are  capable  of  beaching  and  retracting  under  their  own 
power,  thus,  providing  the  most  basic  means  of  discharge. 
Cargo  can  also  be  discharged  using  a  floating  causeway  pier 
or  an  ELCAS.  As  with  an  LCU,  the  rolling  stock  is  driven  or 
towed  off  in  the  first  two  cases,  and  craned  off  in  the 
third.  The  characteristics  of  the  LSV  are  listed  in  Table 
2.  [Ref.  5] 


TABLE  2.  LSV  CHARACTERISTICS 


CARGO  CAPACITY 

PAYLOAD 

2000  ST 

SPEED  MAX 

11.6  kts 

FULL  LOAD 

10.0  kts 

6500  run 

MM 

@  ll  kts 

FUEL 

CAPACITY 

165, 000  GALS 

BURN  RATE 

146  GPH 

DRAFT  (LOADED) 

FMD 

6’ 

AFT 

6’ 
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3.  Causeway  Perry  (CNF) 

A  causeway  ferry  (CWF)  is  assembled  from  Navy  stan¬ 
dard  90  x  21  foot  causeway  sections.  From  one  to  three 
causeway  section's  non-powered  (CSNP)  can  be  coupled  with  a 
causeway  section  powered  (CSP)  to  form  a  ferry.  The  CSP 
contains  two  waterjet  propulsion  assemblies  that  are  capable 
of  propelling  the  loaded  ferry  from  the  ship  to  the  shore - 
side  discharge  point.  The  CWF  is  capable  of  beaching  and 
retracting  under  its  own  power  as  well  as  discharging  at  an 
ELCAS  using  a  crane.  The  causeway  ferry  is  capable  of 
operating  a  full  10  hour  shift  without  refueling.  The 
causeway  sections  are  easily  loaded  aboard  several  types  of 
ships,  and  they  are  the  basis  for  several  major  LOTS  compo¬ 
nents  such  as  the  Floating  Causeway  Pier  and  the  Side  Load¬ 
able  Warping  Tug  in  addition  to  the  CWF.  Figure  2  shows  the 
various  configurations  for  a  CWF.  [Ref.  4] 

O.  RO/RO  DISCHARGE  FACILITY  (RRDF) 

The  RRDF  provides  an  interface  between  the  sea  going 
vessels  and  the  lighters  for  the  offload  of  vehicles.  The 
RRDF  itself  is  configured  from  six  CSNP's  in  a  three-wide  by 
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two- long  configuration  to  provide  a  platform  for  the  offload 
ramp,  which  may  be  either  the  ship's  ramp  for  a  self- 
sustaining  RO/RO,  or  part  of  the  RRDF  for  a  non- self- 
sustaining  RO/RO.  Vehicles  can  be  driven  directly  off  of 
the  ships,  onto  the  platform  and  onto  either  a  causeway 
ferry,  an  LCU,  or  an  LSV.  The  RRDF  is  moored  directly  to 
the  ship  and  is  helped  maintaining  its  position  by  a  Side 
Loadable  Warping  Tug.  Assembly  and  mooring  of  the  RRDF  is 
limited  to  sea  state  0-1  for  a  non- self  -  sustaining  vessel 
and  from  0-2  for  a  self-sustaining  vessel.  The  RRDF  can, 
however,  be  operated  safely  through  sea  state  2  in  either 
case.  [Ref.  l] 


Figure  2:  Causeway  Ferry  Configurations 


E.  BEACH  DISCHARGE  FACILITIES 

Several  types  of  beach  discharge  methods  may  be  employed 
in  LOTS  operations.  The  use  of  one  system  over  another 
depends  on  the  scenario  at  hand,  the  type  of  ship  being 
offloaded,  the  lighterage  being  employed,  and  most  impor¬ 
tantly,  weather  and  surf  conditions  in  the  discharge  area. 
For  the  offload  of  a  RO/RO  type  vessel,  using  causeway  fer¬ 
ries,  LCU's,  or  LSV's,  there  are  three  basic  beach  discharge 
methods:  bare  beach  operations,  causeway  pier  operations, 
and  elevated  causeway  pier  operations.  The  factors  that 
influence  the  choice  of  each  are  listed  below. 

1.  Bare  Beach  Operations 

Throughput  during  bare  beach  operations  are 
primarily  dependent  on  beach  gradient  and  characteristics, 
weather,  wave  height,  and  the  beach  consistency.  The  type 
of  cargo  to  be  offloaded  is  also  of  concern  since  offloading 
is  done  in  the  surf  zone.  The  possibility  of  vehicles 
stalling  or  being  unable  to  gain  traction  is  viable  and  must 
be  considered.  in  the  typical  offload  of  RO/RO  type  cargo 
the  vehicles  would  simply  be  driven  or  towed  off  of  the 
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lighter  onto  the  beach  where  they  would  then  be  directed  to 
a  staging  area.  [Ref.  l] 

2.  Floating  Causeway  Pier  Operations 

A  Floating  Causeway  Pier  would  normally  be  assembled 
in  the  amphibious  assault  phase  of  an  operation  and  remain 
behind  for  the  subsequent  offload  of  the  assault  follow-on 
echelon  until  the  more  permanent  ELCAS  could  be  installed. 
Although  RO/RO  cargo  is  typically  discharged  directly  to  the 
beach,  the  floating  causeway  pier  provides  a  means  for  of¬ 
floading  a  safe  distance  from  the  surf  zone  if  it  is  re¬ 
quired.  A  floating  causeway  pier  is  composed  of  l  CSNP 
(beach  end  configured) ,  and  1  CSNP  (sea  end  configured)  with 
the  required  number  of  CSNP's  in  between  to  meet  the  desired 
depth  at  the  sea  end.  Floating  causeway  piers  are  capable 
of  operating  in  wave  height  of  4  feet  and  a  lateral  wind 
force  of  up  to  40  knots  with  a  3  knot  current. 

3.  Elevated  Causeway  Operations 

The  ELCAS  allows  containers,  break  bulk  cargo  and 
vehicles  to  be  discharged  without  contending  with  the  surf 
zone.  ELCAS  is  a  rapidly  installable  pier  facility  that  can 
be  extended  up  to  3000  feet  beyond  the  surf  zone  to  provide 
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mooring  for  any  type  of  military  lighter  or  commercial 
barge.  The  amount  of  roadway  actually  installed  depends  on 
what  is  required  to  meet  the  12  foot  depth  requirement  at 
the  pierhead.  The  pierhead  of  the  ELCAS  is  double  width  (72 
feet)  and  equipped  with  two  air-bearing  turn-tables  and  two 
180 -ton  cranes.  The  ELCAS  would  be  installed  with  the  ar¬ 
rival  of  the  first  container  ship.  RO/RO  cargo  is  normally 
discharged  on  a  bare  beach,  but  can  be  discharged  at  the 
ELCAS  if  the  vehicles  are  within  the  weight  limits  of  the 
crane  used  on  the  ELCAS.  Weight  limits  preclude  the  offload 
of  such  vehicles  as  tanks  and  large,  heavily  loaded  trucks. 

This  equipment  and  its  characteristics  discussed  in  the 
preceding  sections  must  be  faithfully  modeled  in  the  simu¬ 
lation  to  ensure  that  the  output  is  reasonable  and  reliable. 
The  following  chapter  is  a  thorough  description  of  the  RO/RO 
Offload  model  and  how  this  was  accomplished. 
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A.  BACKGROUND 


We  develop  the  RO/RO  Offload  simulation  model  to  analyze 
throughput  for  the  RO/RO  portion  of  an  instream  LOTS  opera¬ 
tion.  The  model  was  written  in  MODSIM  II,  an  Object- 
Oriented  simulation  language.  MODSIM  II  "is  a  general- 
purpose,  modular,  block- structured  high-level  programming 
language  which  provides  direct  support  for  object-oriented 
programming  and  discrete -event  simulation."  [Ref.  6:p.  1] 

The  prime  elements  of  the  RO/RO  Offload  model  are  created  as 
objects. 

Objects  in  MODSIM  are  dynamically  allocated  data 
structures  coupled  with  routines,  called  methods.  The 
fields  in  the  objects  data  structure  define  its  state 
at  any  instant  in  time  while  its  methods  describe  the 
actions  which  the  object  can  perform.  [Ref.  6:p.  103] 

As  an  example,  an  LCU  2000  class  lighter  is  modeled  as  a 
lighter  object,  possessing  the  attributes  that  are  unique  to 
that  class  such  as  cargo  capacity,  speed,  fuel  capacity,  and 
fuel  burn  rate.  The  fuel  on  board  the  individual  lighter 
decrements  as  time  passes  by  a  method  within  the  lighter 
object  called  BumPuml.  All  of  the  objects  within  the 
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simulation  interact  to  pass  time  in  a  realistic  fashion  so 
that  statistical  data  may  be  gathered  for  later  analysis. 

we  model  all  of  the  components  necessary  to  perform  the 
RO/RO  portion  of  an  instream  LOTS  operation.  The  objects 
are  generic  enough  so  that  any  changes  in  the  number  and 
type  of  ships,  beaches,  or  lighterage,  can  be  modified  in 
the  model  by  simply  changing  the  input  files.  The  key  ob¬ 
jects  in  the  RO/RO  Offload  model  are  described  in  the  sec¬ 
tions  that  follow.  Figure  3  is  a  pictorial  representation 
of  the  objects  in  the  model  which  correspond  to  the  follow¬ 
ing  descriptions. 

B.  ASSUMPTIONS 

Several  assumptions  were  required  in  order  to  define  and 
narrow  the  scope  of  the  simulation  model.  The  assumptions 
are: 

1.  Weather  is  not  a  factor  in  the  simulated  offloads. 

In  real  world  operations  LOTS  is  limited  in  practice 
to  sea  states  of  two  or  below. 

2.  One  ship  is  offloaded  at  a  time. 

3.  All  lighters  are  dedicated  to  the  offload  of  one 
ship. 

4 .  There  are  no  breakdowns  in  equipment . 
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5. 


Serials  are  prepared  aboard  the  ship  prior  to  the 
arrival  of  the  lighter.  In  other  words,  the 
vehicles  are  standing  by  for  onload  when  a  lighter 
arrives . 

6.  Lighters  can  perform  operaterations  simultaneously. 
More  than  one  lighter  can  onload  at  the  same  time, 
several  lighters  may  transit  simultaneously, 
and  so  on. 

C.  SHIPS 

As  discussed  in  Chapter  II  of  this  thesis,  the  oceango¬ 
ing  vessels  that  transport  vehicles  to  the  offload  area  in  a 
LOTS  operation  are  RO/RO's.  The  object  within  the  RO/RO 
Offload  model  that  represents  these  vessels  is  the  SoXoObj . 
The  actual  movement  of  the  RO/RO  to  the  Area  of  Operations 
(AOR)  is  not  modeled  in  the  simulation  because  the  question 
to  be  answered  is  throughput  in  the  offload  phase,  there¬ 
fore,  simulation  starts  with  the  ships  on  station.  The 
dominant  effect  the  RO/RO  has  in  this  phase  is  the  number  of 
spots  the  vessel  has  available  for  onload  to  a  particular 
type  of  lighter,  and  whether  or  not  the  RO/RO  is  self- 
sustaining.  Additionally,  some  classes  of  ships  are  parti¬ 
tioned  internally  so  that  portions  of  the  cargo  can  only  be 
handled  by  a  specific  spot,  which  limits  the  number  and  type 
of  lighters  available  to  offload  that  cargo.  These  aspects 
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of  a  particular  class  of  RO/RO  can  be  modeled  simply  by 
changing  the  input  files  for  each  vessel  desired  in  a  par¬ 
ticular  scenario. 

The  RoRoObj  possesses  a  method  called  MakeLoad  which 
actually  constructs  the  serials  based  on  the  maximum 
capacity  of  a  given  lighter.  The  number  and  type  of  spots 
for  a  ship  are  input  variables.  For  example,  a  RO/RO 
configured  with  an  RRDF  and  one  organic  crane  has  one  LO/LO 
spot,  one  CWF  spot  on  the  RRDF  and  one  LCU  spot  on  the  RRDF. 
The  LO/LO  spot  is  usually  on  the  opposite  side  of  the  vessel 
from  the  RRDF,  and  can  accept  both  CWF's  and  LCU’s.  As  an 
example  of  a  partitioned  load,  the  aft  portion  of  the  Algol 
(SL-7)  class  Vehicle  Cargo  Ships  can  only  be  offloaded  by 
LO/LO  operations  and  can  contain  up  to  60  vehicles.  The 
MakeLoad  method  keeps  track  of  these  60  vehicles  and  ensures 
that  they  decrement  appropriately  when  onload  of  a  lighter 
is  conducted  at  the  LO/LO  spot. 
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Figure  3*  The  Object-Oriented  Approach  to  LOTS 
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D.  LIGHTERAGE  CONTROL  POINTS 


The  Lighterage  Control  Points  serve  as  the  interface 
between  the  queue  in  which  the  lighters  wait  for  an  avail¬ 
able  spot  at  a  particular  location,  and  that  location.  For 
example,  the  Ship  Lighterage  Control  Point  (SLCP)  interfaces 
between  the  lighters  waiting  for  a  spot  at  the  ship,  and  the 
ship  itself.  There  are  three  Lighterage  Control  Points 
modeled  in  the  RO/RO  Offload  model.  In  addition  to  the 
SLCPQbj ,  the  BLCPQbj  interfaces  with  the  Beach  objects,  the 
PuelCPObj  interfaces  with  the  refueling  area  objects,  and, 
each  interfaces  with  it's  respective  queue.  Each  of  the 
modules  in  which  the  Lighterage  Control  Point  objects  are 
defined  also  has  the  definition  for  the  associated  queue 
object,  such  as  the  Await  ingShipQueueObj .  The  queue  objects 
actually  hold  the  lighter  objects  until  a  spot  opens  up  at 
the  associated  location. 

B.  BEACH  AREAS 

Typically  the  offload  of  rolling  stock  in  the  beach  area 
consists  of  starting  the  vehicles  up  and  driving  them  away. 
The  one  exception  to  this  rule  is  when  an  ELCAS  is  in  use 
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and  vehicles  are  lifted  from  the  lighters.  The  RO/RO  Of¬ 
fload  model  provides  for  three  beach  types:  bare  beach, 
floating  causeway  pier,  and  ELCAS.  Each  instance  of  a  Bea- 
chObj  in  the  model,  however,  only  varies  in  the  number  of 
spots  available  for  lighter  offload.  The  spots  are  not 
unique  to  a  particular  type  of  lighter,  but  if  this  attrib¬ 
ute  were  desired  it  would  entail  only  a  minor  modification 
to  the  source  code.  The  BeachObj  has  within  it  a  method 
which  keeps  track  of  the  time  that  the  spots  lay  idle  for 
later  analysis. 

P.  REFUEL  AREA 

The  refueling  area  in  a  LOTS  operation  is  typically  a 
shore  site  equipped  to  refuel  the  lighters.  Each  of  the 
lighters  is  normally  capable  of  operating  for  a  minimum  of  a 
ten  hour  shift  without  refueling,  but  the  time  to  transit  to 
the  refueling  area  and  to  refuel  can  add  a  significant 
amount  of  variance  when  looking  at  throughput. 

The  refueling  area,  modeled  as  a  RefuelAreaObj,  has  two 
attributes  which  affect  simulation  time;  the  number  of  spots 
available  for  refueling  and  the  pump  rate.  Both  of  these 
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attributes  can  be  modified  in  the  input  files.  One  other 


factor  affecting  the  refueling  operation  is  the  distance  of 
the  refueling  area  with  respect  to  both  the  ship  and  the 
beach.  These  are  also  input  parameters. 

G.  LIGHTERS 

The  LighterObj  is  the  key  object  in  the  RO/RO  Offload 
model  in  that  it  alone  contains  the  methods  which  control 
the  passage  of  simulation  time  for  each  of  the  events  mod¬ 
eled.  Each  instance  of  a  lighter  object  has  its  unique  at¬ 
tributes  such  as  speed  and  cargo  capacity  that  will  come 
into  play  when  the  time  required  for  a  given  event  to  pass 
is  calculated. 

The  basic  lighter  cycle  consists  of  eight  events,  each 
of  which  is  associated  with  a  method  in  the  LighterObj  to 
control  the  passage  of  simulation  time.  During  each  of 
these  events,  as  well  as  the  time  spent  in  the  queues,  the 
lighter  burns  fuel.  The  eight  events  in  the  basic  lighter 
cycle  are  described  below.  A  pictorial  description  using 
object-oriented  simulation  pictures  (OOS-Pics)  [Ref.  7]  can 
be  found  in  Appendix  A. 
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1.  Approach  and  Moor  to  Ship 

At  the  beginning  of  simulation  all  lighters  are  in 
standby  in  the  AwltlngShlpQueue.  When  a  ship  has  a  free 
spot,  it  asks  the  SLCPObj  to  remove  a  lighter  requiring  the 
appropriate  spot  type  from  the  queue.  The  SLCPObj  then 
te1.  Is  the  lighter  to  Approach  And  Moor,  thus  initializing 
the  lighter  cycle.  The  approach  and  moor  time  is  calcu¬ 
lated,  the  simulation  time  is  allowed  to  pass,  and  fuel  is 
burned  for  that  period  of  time. 

2 .  Onload 

After  the  lighter  completes  the  approach  and  moor 
event,  it  asks  the  ship  to  MakeLoad,  which  causes  the  Ro- 
RoObj  to  create  a  load  and  decrement  the  total  onboard  the 
ship  appropriately.  The  ship  next  tells  the  lighter  to  on¬ 
load.  The  LigbterObj  calculates  the  onload  time,  passes  the 
correct  amount  of  simulation  time,  burns  fuel,  and  tells 
itself,  the  lighter,  to  cast  off  and  clear  the  ship. 

3.  Cast  and  Clear  the  Ship 

The  cast  and  clear  event  is  similar  to  the  other  two 
described  above  in  that  the  cast  and  clear  time  is  calcu¬ 
lated  and  allowed  to  pass,  and  fuel  is  burned.  After  the 
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lighter  completes  the  cast  and  clear  event  it  transits  to 
the  beach  area  queue.  The  ship  is  next  asked  to  clear  the 
spot  just  used.  This  frees  it  for  use  by  another  lighter  and 
starts  that  lighter's  cycle. 

4.  Transit  to  the  Beach  Area  Queue 

As  a  lighter  transits  to  the  beach  area  it  asks  the 
BLCPQbj  to  get  a  beach  spot  for  offloading.  The  BLCPObj  in 
turn  asks  each  of  the  beach  objects  in  the  scenario  if  there 
are  any  spots  free.  If  there  is  a  free  spot,  the  lighter  is 
told  to  approach  and  moor  to  the  appropriate  BmmehObj .  If 
there  are  no  spots  available  the  lighter  is  added  to  the 
Awal  tlngBeachQueue . 

The  TranaltTo  method  in  the  model  calculates  the 
transit  time  based  only  on  speed  and  distance.  This  is 
different  from  the  other  events  in  the  cycle  where  the  event 
times  are  drawn  from  random  number  streams. 

5.  Approach  and  Moor  to  the  Beach 

Approach  and  moor  at  the  beach  is  identical  to  that 
on  the  ship  with  the  exception  that  the  lighters  spot  re¬ 
quirement  is  not  checked,  any  lighter  type  can  moor  to  any 
beach  type.  If  a  spot  becomes  free  at  the  beach  and  a 


29 


lighter  does  not  happen  to  be  in  transit  and  requesting  a 
spot  at  that  exact  moment,  the  beach  asks  the  BLCPQbj  to 
remove  a  lighter  from  the  queue.  The  BLCPObj  then  tells  the 
newly  removed  lighter  to  approach  and  moor. 

6.  Offload 

Upon  completion  of  the  approach  and  moor  event  the 
lighter  is  told  to  offload.  Offload  time  is  calculated, 
simulation  time  is  allowed  to  pass,  and  fuel  is  burned. 

After  completion  of  the  offload,  the  fuel  status  of  the 
lighter  is  checked.  If  the  lighter  is  at  or  below  the  spe¬ 
cified  minimum  fuel  percentage  it  is  told  to  cast  and  clear 
the  beach  and  transit  to  the  refueling  area.  If  the  fuel 
status  is  above  the  minimum  the  lighter  is  told  to  cast  and 
clear  the  beach  and  transit  to  the  ship  area.  These  two 
events  are  the  last  two  of  the  eight  in  the  basic  lighter 
cycle.  They  are  essentially  the  same  as  the  like  named 
events  above,  so  a  detailed  description  is  not  required. 

7.  Refueling 

The  basic  sequence  of  events  is  modified  slightly  if 
a  lighter  requires  fuel.  As  mentioned  above,  after  a 
lighter  completes  its  offload,  a  check  is  conducted  to 
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determine  if  the  lighter  is  at  or  below  its  minimum  fuel 
percentage.  If  the  lighter  is  low  on  fuel  it  casts  and 
clears  the  beach  and  transits  to  the  refueling  area.  On  the 
way  to  the  refueling  area  the  lighter  checks  in  with  the 
FuelCPObj ,  which  asks  the  RefuelAreaObj  to  check  for  empty 
spots.  If  there  is  a  spot  available  the  lighter  is  told  to 
approach  and  moor.  If  not,  the  lighter  is  added  to  the 
FuelAreaQueue  and  waits  for  a  spot  to  open  up.  After  a 
lighter  completes  the  approach  and  moor  event  it  is  told  to 
refuel.  Refuel  time  is  calculated  based  on  the  fuel  re¬ 
quired  to  fill  the  lighter  to  capacity  and  the  pump  rate  of 
the  RefuelAreaObj .  When  refueling  is  complete,  the  lighter 
is  told  to  cast  and  clear  and  transit  to  the  ship  area.  The 
spot  in  the  RefuelAreaObj  is  made  free  and  the  FuelCPObj  is 
asked  to  remove  the  next  lighter  from  the  queue. 

After  the  lighter  arrives  back  in  the  ship  area 
queue,  the  cycle  starts  anew  with  the  lighter  waiting  for  a 
spot  to  become  free  on  the  ship.  Each  instance  of  a  Ligh- 
terObj  conducts  these  events  until  the  offload  of  every 
RO/RO  in  the  simulation  is  complete. 
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H.  MODEL  EXECUTION 


There  are  four  phases  in  the  execution  of  the  RO/RO  Of¬ 
fload  simulation.  A  brief  description  of  these  phases  and 
the  objects  involved  in  their  execution  follows. 

1 .  input 

The  information  required  to  create  a  desired 
scenario  is  stored  in  eight  ASCII  files.  These  files  are 
easy  to  create  and  edit.  The  LlatliaeterObj  has  the  task  of 
creating  the  necessary  objects  to  read  these  files  and  to 
call  the  methods  that  actually  read  the  data.  The  informa¬ 
tion  for  each  object  to  be  built  is  stored  in  a  record,  and 
then  added  to  a  QueueLlatObj .  Examples  of  program  input 
files  can  be  found  in  Appendix  D. 

2.  Object  Building 

The  QbjectBullderObJ  creates  each  instance  of  the 
objects  required  for  the  scenario.  It  removes  the  records 
from  the  QueueList  objects  mentioned  above,  and  fires  a 
method  in  each  object  that  fills  that  objects  fields  with 
the  information  from  the  record.  The  end  result  of  this 
phase  is  that  all  of  the  objects  required  to  run  the  desired 
scenario  are  built  and  standing  by  for  replication.  All  of 


32 


the  lighter  objects  will  have  been  added  to  the  Awaiting - 
ShlpQueuo  and  are  standing  by  for  the  RoRoObj  to  request  the 
first  lighter  to  fill  a  vacant  spot. 

3.  Replication 

Replication  is  controlled  by  the  replication  manager 
object  or  RepMhgrQbj .  A  method  in  this  object  asks  the  user 
how  many  replications  are  desired  and  if  seeds  for  the  ran¬ 
dom  number  generators  are  to  be  input  by  the  user.  At  the 
end  of  each  replication  the  desired  statistics  are  computed 
and  all  of  the  lighters  in  the  scenario  are  added  to  the 
Await  ingShipQueue  in  preparation  for  the  next  replication. 

4 .  Output 

Output  is  created  in  the  Statistics  object  or  Stat- 
80b j .  A  method  in  this  object  is  called  after  the  last  load 
from  the  ship  has  been  transferred  to  the  beach,  and  all  of 
the  lighters  are  returned  to  the  Await ingShipQueue.  This 
method  calculates  the  desired  statistics  and  outputs  them  to 
four  ASCII  files.  Appendix  E  contains  examples  of  program 
output  files. 
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IV.  ANALYTICAL  PROCZDURXS 


A.  BACKGROUND 

In  order  to  ensure  that  the  output  from  the  simulation 
model  is  reliable  and  correct,  two  steps  must  be  accom- 
plie  ed.  First,  the  model  must  be  verified  to  ensure  that 
it  is  mathematically  correct.  This  essentially  involves  the 
checking  and  double  checking  of  any  equations,  or  input 
distributions  used  to  determine  event  times  in  the  model. 

The  second  step  is  validation  of  the  model  which,  determines 
if  the  output  is  realistic  and  if  the  output  is  in  fact  what 
is  required.  In  other  words,  does  the  simulation  model 
provide  reliable  output  data  of  the  desired  parameters. 

This  two  step  process  is  the  first  phase  in  the  analysis  of 
the  RO/RO  Offload  model. 

The  second  phase  in  the  analysis  is  to  demonstrate  the 
possible  applications  of  the  model.  This  is  done  by 
selecting  a  set  of  scenarios,  running  them  through  the 
model,  and  analyzing  the  output. 

The  following  sections  document  the  verification,  val¬ 
idation,  and  demonstration  of  the  RO/RO  Offload  simulation 
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model  subject  to  the  constraining  assumptions  listed  in 
Chapter  III. 

B.  LIGHTER  CTCLB  BVXHT  TUCKS 

In  determining  the  times  for  each  of  the  lighter  cycle 
events  the  primary  objective  is  to  obtain  the  most  current 
data  available.  Several  sources  were  available  that  pro¬ 
vided  mean  times  and  distributions  for  each  of  the  events  in 
the  lighter  cycle,  but  no  one  set  of  data  provided  both  the 
accuracy  and  latitude  that  was  required  for  the  model.  The 
final  set  used  in  the  model  is  a  mixed  set  derived  from  all 
of  the  sources  available,  coupled  with  some  common  sense 
decisions,  to  provide  the  best  event  times  for  this  simu¬ 
lation  model. 

There  are  two  capabilities  in  the  RO/RO  Offload  model 
that  required  some  flexibility  in  determining  the  event  time 
distributions.  The  first  is  the  capability  to  differentiate 
between  self-sustaining  (SSR)  and  non- self -sustaining  (NSSR) 
RO/RO' s.  The  second  feature  is  that  ships  can  be  given  the 
capability  of  LO/LO  operations.  Two  additional  area's  that 
required  flexibility  are  transit  times,  and  refueling  times. 
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Because  the  model  allows  the  user  to  input  the  distances 
between  the  ships,  beaches,  and  refueling  area's,  the  tran¬ 
sit  times  between  area's  are  calculated  based  solely  on 
speed  and  distance.  This  allows  the  user  to  place  these 
area's  at  any  distance  relative  to  each  other.  Refueling 
times  are  also  deterministic,  based  on  the  amount  of  fuel  to 
be  pumped,  and  the  pump  rate.  The  following  table  lists  the 
times,  distributions  and  source  for  each  event. 


TABLK  3.  LIGHTER  CYCLE  EVENT  INPUT  DATA 


LIGHTER 

CYCLE 

CAUSEWAY 

FERRY 

LCU 

EVENT 

PROB  DIST 

MEAN/RNG 

STD 

PROB  DIST 

MEAN/RNQ 

STD 

APPROACH  k  MOOR 

SSR 

NORMAL 

10.5 

(3) 

3.2 

NORMAL 

14.3 

(3) 

2.2 

NSSR 

NORMAL 

M 

(2) 

3.2 

NORMAL 

14.3 

(3) 

2.2 

OPERATIONAL  DELAY 

1 

NORMAL 

2 

(1) 

0.7 

NORMAL 

2 

(1) 

0.7 

ONLOAD  SHIP 

SSR 

NORMAL 

16 

(3) 

3.9 

3.9 

NSSR 

NORMAL 

2S 

(2) 

3.9 

NORMAL 

18 

(2) 

3.9 

OPERATIONAL  DELAY 

2 

LOONORMAL 

m 

(1) 

1.2 

NORMAL 

(1) 

0.3 

CAST  k  CLEAR  SHIP 

SSR 

NORMAL 

5 

(3) 

1.3 

UNIFORM 

2-2.5 

(3) 

NA 

NSSR 

NORMAL 

■ 

■B 

UNIFORM 

4-6.5 

(2) 

NA 

TRANSIT  TO  BEACH 

DETERMINISTIC 

DETERMINISTIC 

APPROACH  k  MOOR 

NORMAL 

17 

(1) 

3.4 

NORMAL 

11 

(1) 

4.29 

OPERATIONAL  DELAY 

3 

LOGNORMAL 

1 

<1) 

0.9 

UNIFORM 

BM 

(1) 

NA 

OFFLOAD  AT  BEACH 

NORMAL 

10 

(1) 

3.4 

NORMAL 

3 

(1) 

0.8 

OPERATIONAL  DELAY 

4 

UNIFORM 

0-1. 

5  (1) 

NA 

NORMAL 

DM 

(1) 

0.3 

CAST  k  CLEAR  BEACH 

NORMAL 

9.9 

(1) 

1.8 

UNIFORM 

1.8-3 

(1) 

NA 

TRANSIT  TO  SHIP 

DETERMINISTIC 

DETERMINISTIC 

HUTU i  a.  All  values  are  in  minutes. 

b.  Onload  and  Offload  times  are  in  minutes  per  vehicle. 

KHHdl i  (1)  Ref.  8:  p49.  Hotel  All  STD's  and  distributions  cone  from  this  reference. 


(2)  Ref.  8:  p34.  Hotel  Allows  differentiation  between  SSR  and  NSSR  ships. 

(3)  Ref.  9:  p6-18  Hotel  Host  current  data  available  for  these  events. 
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TABLS  4.  LIGHTXS  CYCLE  EVENT  INPUT  DATA 


LIGHTER 

CYCLE 

EVENT 

CAUSEWAY  FERRY 

LCU 

PROB  DIST 

MEAH/RNG 

_ 

STD 

PROB  DIST 

■I 

TRANSIT  TO  REFUEL  AREA 

DETERMINISTIC 

DETERMINISTIC 

APPROACH  A  MOOR 

NORMAL 

17  (1) 

3.4 

NORMAL 

11  (1) 

4.39 

OPERATIONAL  DELAY  3 

LOGNORMAL 

amu 

0.9 

UNIFORM 

BBS 

NA 

REFUEL 

DETERMINISTIC 

DETERMINISTIC  | 

CAST  &  CLEAR  REFUEL  AREA 

NORMAL 

e mu 

1.8 

UNIFORM 

1.8-3  (1) 

NA  1 

TRANSIT  TO  SHIP 

DETERMINISTIC 

DETERMINISTIC  II 

NOTES i  a.  All  values  are  in  minutes. 

b.  Refuel  Area  is  located  at  a  beach  or  shore  site,  therefore  it  is  treated  as  a 
beach  for  simulation  event  times. 

SOQECESt  (1)  Ref.  8:  p49 .  Notei  All  STD's  and  distributions  came  from  this  reference. 

Two  additional  notes  on  event  times  that  are  not  re¬ 
flected  in  the  tables.  The  first  is  that  an  LSV  is  treated 
as  an  LCU  with  regard  to  event  times.  Since  an  LSV  moors  to 
the  RRDF  at  the  LCU  spot,  and  is  similar  in  most  ways  to  an 
LCU,  this  is  not  regarded  as  a  risky  assumption.  This  as¬ 
sumption  was  further  required  because  no  data  was  available 
for  the  LSV  event  times.  The  second  thing  to  note  is  the 
offload  time  at  the  LO/LO  spot  if  the  RO/RO  being  simulated 
is  so  configured.  The  event  time  for  a  LO/LO  offload  is 
normally  distributed  with  a  mean  of  10.25  minutes  per  ve¬ 
hicle  and  a  standard  deviation  of  5.75  minutes  per  vehicle. 
These  values  are  a  composite  based  on  data  obtained  in  CRM 
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91-3,  [Ref.  10],  and  data  from  Joint  Pub  4-01.6 ,  [Ref.  l] . 


The  standard  deviation  for  the  LO/LO  offload  time  as  well  as 
three  other  event  times  is  actually  too  high  for  the  normal 
or  lognormal  distributions.  In  a  simulation  run,  a  small 
percentage  of  the  numbers  drawn  from  the  random  number 
streams  in  these  cases  would  be  negative.  This  would  cause 
a  fatal  error  in  the  program,  thus,  these  numbers  are  con¬ 
verted  to  positives.  As  a  result,  the  distributions 
actually  used  in  the  model  are  truncated  and  slightly  skewed 
to  the  right  of  those  described. 

C.  ANALYSIS 

The  analysis  of  model  output  is  divided  into  two  parts. 
The  stated  goal  of  this  thesis  is  to  provide  a  valid  simu¬ 
lation  model  from  which  reliable  estimates  of  throughput  can 
be  derived  for  the  instream  offload  of  a  RO/RO.  The  first 
objective  is  to  validate  the  simulation  model,  thus  ensuring 
that  it  does  in  fact  provide  reliable  throughput  estimates. 
Step  two  is  to  demonstrate  the  use  of  the  model  using  four 
scenarios  and  evaluating  the  output. 
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1.  Validation  Scanario 


Validation  of  the  RO/RO  Offload  model  was  accom¬ 
plished  by  taking  a  real  world  offload  scenario  for  which 
all  of  the  parameters  required  by  the  model  were  known. 

These  parameters  were  loaded  into  the  model  via  the  input 
files.  The  RO/RO  Offload  model  was  then  run  for  300  repli¬ 
cations  and  the  output  was  compared  with  the  existing 
empirical  data.  The  operation  selected  for  validation  was 
actually  conducted  during  Ocean  Venture  '93.  The  following 
tables  list  the  input  values  for  the  model.  For  examples  of 
input  files  in  the  correct  format,  see  Appendix  D. 


TABLE  5.  VALIDATION  SCENARIO  INPUT  DATA 


|  SHIP  DATA 

REFUEL  AREA  DATA 

NAME 

BELLATRIX 

NAME 

FUEL  DEPOT 

TYPE 

SSR 

*  OF  SPOTS 

2 

DIST  TO  BCH 

6  run 

DIST  TO  SHIP 

6  nm 

*  OP  SPOTS 

3 

PUMP  RATE 

3500  ora 

SPOT  TYPE 

LCU,  CWF,  LOLO 

*  VHCLS  LOLO 

60 

#  VHCLS  RRDF 

0 

*  VHCLS  ANY  SPOT 

834 

NDRSt  a.  •  VHCLS  LOLO  indicates  the  number  of  vehicles  in  the 
load  that  cam  be  lifted  front  the  LOLO  spot  only . 

The  Bellatrix,  an  SL-7  class,  has  a  partitioned  load 
and  60  vehicles  must  be  offloaded  by  LOLO. 
b.  Data  provided  by  Joint  Test  Directorate  [Ref.  11]. 
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TABLE  6.  VALIDATION  SCENARIO  INPUT  DATA 


|  LICMTER  DATA 

LIGHTER  ID 

ALFA  -  ECHO 

FOXTROT  -  GOLF 

HOTEL 

INDIA  -  LIMA 

TYPE 

LCU  2000 

LCU  1610 

LSV 

3X1  CNF 

*  IN  SCENARIO 

5 

2 

1 

4 

SPOT  REQUIRED 

LCU 

LCU 

LCU 

CNF 

MAX  SPEED 

12  kts 

12  kts 

11.6  kts 

6  kts 

FULL  LOAD  SPEED 

11  kts 

11  kts 

10  kts 

3  kts 

VHCLE  CAPACITY 

11 

4 

25 

16 

FUEL  CAPACITY 

92000.0  OAL 

3290.0  OAL 

165000.0  OAL 

275.0  OAL 

FUEL  BURN  RATE 

41.6  OPH 

36.0  OPH 

145.8  OPH 

20.8  OPH 

MIN  FUEL  % 

0.25 

0.25 

0.25 

0.25 

MOTES i  a.  Fuel  capacities,  Burn  rates,  and  vehicle  capacities  for  the 

LCU  2000,  LSV,  and  3x1  CNF  provided  by  Joint  Test 

Directorate  [Ref.  11] . 

TABLE  7.  VALIDATION  SCENARIO  INPUT  DATA 


j"  BEACH  DATA 

NAME 

SOUTH 

ARMY 

NAVY 

AEMIN 

TYPE 

BARE  BEACH 

CAUSEWAY  PIER 

CAUSEWAY  PIER 

esses 

*  OF  SPOTS 

2 

2 

1 

1 

DIST  TO  SHIP 

6  nm 

6  nm 

6  nm 

6  nm 

DIST  TO  FUEL 

S  nm 

6  nm 

6  nm 

6  nm 

MOTBSt  a.  Data  provided  by  Joint  Test  Directorate  [Ref.  11] . 

2.  Validation  Analysis 

The  approach  employed  in  this  thesis  for  model  val 
idation  is  the  basic  inspection  approach  [Ref.  12:  p.  316] 
This  procedure  involves  the  comparison  of  one  or  more  sta¬ 
tistics  from  the  model  with  those  from  real  world 
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observations.  Por  this  model  the  total  offload  time  for  the 


ship  in  the  given  scenario  will  serve  as  the  statistic  for 
comparison.  Although  the  RO/RO  Offload  model  collects  data 
for  the  idle  time  at  each  of  the  ship  and  beach  spots  in  the 
scenario,  as  well  as  the  time  spent  in  the  Awal tingShipQumue 
and  AwaltingBeachQuaue,  there  currently  is  no  empirical  data 
with  which  to  compare  it . 

The  RO/RO  Offload  model  is  a  terminating  simulation 
[Ref.  I2:p.  529].  That  is  to  say  that  each  replication  of 
the  simulation  runs  until  a  terminating  event  occurs,  name¬ 
ly,  the  complete  offload  of  the  ship  in  the  given  scenario. 
Since  different  runs  use  an  independent  sequence  of  random 
numbers  for  the  individual  event  times,  this  implies  that 
the  output  realizations  from  the  different  runs  are 

independent  as  well.  Specifically,  total  offload  time  for 
the  ship  in  our  scenario.  Calculating  the  mean  ,y=  K(X)  , 

where  X  is  the  independent  total  offload  time  for  a  single 
simulation  replication,  serves  as  a  reliable  point  estimate 
for  the  comparison.  If  Xlf  X2,...,X„  are  the  independent, 

realizations  for  offload  times  of  n  replications,  then  the 
mean  is  simply:  A'=  (E'Li X,)/n 
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As  noted  previously,  the  validation  run  of  the  model 
consisted  of  300  replications.  The  output  is  in  ASCII  for¬ 
mat,  examples  of  which  can  be  found  in  Appendix  E.  The 
output  was  loaded  into  SPSS  [Ref.  13],  and  some  basic 
graphical  analysis  was  conducted.  Output  times  from  the 
model  are  expressed  in  minutes,  and  the  real  world  observa¬ 
tions  are  generally  expressed  in  hours  or  days,  therefore, 
some  simple  conversion  is  required.  The  results  for  the 
validation  are  presented  below  in  Figure  4. 

I  JLOTS  III  ~  I 


Bellatrix  Offload  Scenario 

12  Lighters,  6nm  from  Beach 


Offload  Time  in  Mnutes 


Figure  4:  Histogram  of  Bellatrix  Offload  Scenario 
Compared  to  Normal  Distribution. 

We  expect  our  offload  time  data  to  be  slightly 
skewed  to  the  right  since  offload  time  is  bounded  by  zero  on 
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the  left.  This  is  confirmed  by  Figure  4.  Nevertheless,  we 
rely  on  the  central  limit  theorem  and  the  robustness  of 
procedures  based  on  the  t -distribution  to  build  a  99% 
confidence  interval  for  the  mean  offload  time  using  the  300 
simulated  observations. 

-V  ±ra2(-v/Vw  )  =  4703.2  ±  2.576(407.22/7300)  =  14642  63,4763.76] 

This  interval  expressed  in  hours  is  [77.37,  79.39]. 
The  empirical  mean,  79.2,  clearly  falls  within  this  confi¬ 
dence  interval  which  lends  credence  to  our  claim  that  the 
RoRo  Offload  simulation  model  provides  reliable  estimates 
for  throughput. 

3 .  Demonstration  Scenarios 

In  order  to  fully  exercise  the  simulation  model,  a 
design  space  consisting  of  four  scenarios  was  selected. 
There  are  many  factors  which  could  be  varied  to  determine 
the  effect  on  total  offload  time,  but  the  two  most  obvious 
variables  are  the  number  of  lighters,  and  the  distance  of 
the  ship  from  the  beach.  The  objective  is  to  stress  the 
model,  thus,  the  values  for  these  variables  could  be 
considered  extreme  cases  that  are  not  likely  to  be 
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replicated  in  the  real  world.  The  four  scenarios  are,  a 
large  number  of  lighters  at  both  long  and  short  distances, 
and  a  small  number  of  lighters  at  both  long  and  short  dis¬ 
tances.  In  choosing  the  number  of  lighters,  some 
experimental  runs  were  conducted  to  ensure  that  the  queues 
in  the  model  were  behaving  as  desired.  Aside  from  the  num¬ 
ber  of  lighters,  and  the  distance  between  ship  and  beach, 
all  other  variables  were  held  constant.  The  data  used  in 
the  validation  scenario  listed  in  tables  5,  6,  and  7  were 
used  with  the  exception  of  distances,  and  lighters.  The 
number  of  beaches  was  reduced  to  two,  the  south  beach  and 
the  admin  pier.  The  number  of  beaches  was  reduced  to  help 
obtain  the  desired  behavior  in  the  queues.  Figure  5  depict 
the  design  space  for  the  demonstration. 
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Figure  5s  Demonstration  Design  Space 
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4.  Demonstration  Results 

Graphical  techniques  were  employed  to  analyze  the 
data  from  the  four  demonstration  scenarios.  The  model  was 
run  for  n  =  900  replications  for  each  case.  Figure  6  de¬ 
picts  the  results  from  the  four  runs. 

Beilatrix  Offload 


Four  Demonstration  Scenarios 


Figure  6:  Boxplots  of  Results  from  Demonstration  Scenarios 

Each  of  the  four  boxplots  above  depicts  the  results 
from  one  of  the  four  scenarios.  The  first  observation  to  be 
made  is  that  the  two  16  lighter  scenarios  are  relatively 
close  in  their  final  values.  In  fact,  there  is  only 
approximately  9  hours  difference  between  these  two  mean  of¬ 
fload  times.  This  difference  is  likely  due  to  the 
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difference  in  distance  between  the  two  scenarios.  We  let  Xl 


and  x2  be  the  observed  offload  times  for  a  replication  of 
the  16-6  and  16-1  scenarios  respectively,  and  then  raun  a 
paired  t-test  to  compare  the  two  scenarios  where: 

Ho  :Au  -X.2  =  D,  =  0,  and 


'  sp°Jx  ' 

where  /)=  2”=1  D,/w  and  SD  is  the  standard  deviation  of  the  dif¬ 
ferences  of  paired  observations.  The  results  of  the  paired 
t-test  follow: 


TABLE  8.  PAIRED  T-TEST  FOR 
16-6  AND  16-1  SCENARIOS 


Mean 

4,330.86 

3,791.11 

Standard  Deviation 

429.91 

503.49 

SE  of  Mean 

14.33 

16.78 

Number  of  Pairs 

900 

Correlation 

0.02 

2 -tail  Significance 

0.54 

Paired  DltCereaaeea 

Mean 

539.75 

Standard  Deviation 

655.32 

■r*<  ■*?  *'■ 

SE  of  Mean 

21.84 

99%  Confidence 

(  483.351 

596.141  ) 

df 


2-tail  Significance 
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A  two- tail  significance  of  zero  for  the  paired  dif¬ 
ferences  indicates  that  the  probability  of  observing  a  dif¬ 
ference  this  large  or  larger  when  the  two  means  are  the  same 
is  essentially  zero.  Additionally,  zero  does  not  fall 
within  the  99%  confidence  interval  for  the  mean  of  the 
paired  differences.  The  conclusion  is  that  H0  must  be  re¬ 
jected  and  the  difference  between  the  two  means  is  statis¬ 
tically  significant.  Although  the  difference  is 
statistically  significant,  it  would  be  deemed  operationally 
insignificant  in  the  course  of  an  entire  operation.  This 
difference  is  relatively  small  due  to  the  buffering  effect 
of  the  queues.  The  times  spent  in  queue  by  lighter  type  and 
the  idle  spot  times  are  listed  below. 


TABLE  9. 


MEAN  TIKE  SPENT  IN  QUEUE  BY  LIGHTER  TYPE 


Scenario 

Awaiting  Ship  Queue  Data 

Awaiting  Beach  Queue  Data 

LCU  Ship 

LSV  Ship 

CWF  Ship 

LCU  Beach 

LSV  Beach 

CWF  Beach 

16-6 

1,066.5 

691.9 

725.3 

144.3 

69.5 

39.5 

16-1 

1,198.3 

761.3 

840.4 

418.9 

187.7 

166.6 

5-6 

584.9 

0 

0 

0.4 

0 

0 

5-1 

1, 047.7 

0 

0 

3.6 

0 

_ 

_ 

juDTKBi  a.  All  times  in  minutes 
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TABLE  10. 


KEAN  TIME  SHIP  AMD  BEACH  SPOTS  HERE  IDLE 


Scenario 

Ship  Idle  Spot  Time 

Beach  Idle  Spot  Time 

LCU  Spot 

CNF  Spot 

LoLo  Spot 

South  Beach 

Admin  Pier 

16-6 

1,788.8 

1,508.4 

1,733.4 

1,643.33 

2,  092.1 

16-1 

1,615.9 

1,210.2 

1,646.1 

1,198.6 

1,518.8 

5-6 

2,764.7 

6,239.7 

2,883.4 

6,051.6 

6,950.6 

5-1 

1,724.6 

3,679.2 

1,782.2 

4,074.1 

5,207.4 

|llDTISi  a.  All  time*  in  minutes  j 

while  the  interpretation  of  the  total  offload  time 
is  straightforward,  care  must  be  taken  when  interpreting 
these  times.  First,  note  that  the  mean  time  spent  in  queue 
is  bounded  by  the  total  offload  time,  and  should  be  normal¬ 
ized  to  the  percent  of  the  total  offload  time  spent  in 
queue.  Second,  note  that  the  idle  times  have  some  non- zero 
lower  bound  that  is  determined  by  the  number  of  loads  car¬ 
ried  by  each  lighter  type. 

With  so  many  lighters  in  the  16  lighter  scenarios, 
the  queues  rarely  are  without  the  desired  lighter  type  for  a 
newly  available  spot,  thus,  these  offload  cycles  have  a 
minimum  idle  time  at  both  the  ship  and  at  the  beach.  Like¬ 
wise,  the  time  spent  in  queue  is  relatively  high  because  of 
the  large  number  of  lighters.  When  the  distance  is  de¬ 
creased  from  six  to  one  mile,  the  time  spent  in  queue 
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increases  and  the  idle  spot  times  decrease,  as  would  be 
expected. 

In  contrast,  the  two  scenarios  with  five  lighters 
each  had  little  or  no  buffering  from  the  queues,  thus,  the 
idle  spot  times  increase  significantly.  The  mix  of  lighters 
must  be  explained  to  understand  fully  what  is  happening  in 
these  scenarios.  The  lighter  mix  for  the  five  lighter  sce¬ 
narios  consists  of  four  LCU's,  and  one  CWF.  Since  there  is 
no  LSV  in  the  scenario,  LSV  queue  times  are  zero.  Because 
there  is  only  one  CWF  in  the  scenario,  the  time  spent  in 
queue  for  the  CWF  is  zero,  and  it's  associated  idle  spot 
time  is  high.  The  CWF  is  essentially  running  back  and  forth 
directly  between  ship  and  beach.  For  the  LCU's,  they  are 
spending  more  time  in  the  queues  because  there  are  more  of 
them  in  the  mix  and  they  are  competing  for  the  same  spots. 
This  undoubtedly  forces  some  into  the  queue.  The  queue 
times  are  significantly  lower  than  in  the  16  lighter 
scenarios,  and  the  idle  times  are  also  higher,  as  would  be 
expected.  Again,  as  the  distance  decreases,  the  queue  times 
increase  and  the  idle  times  decrease. 
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What  can  be  concluded  about  the  five  lighter 


scenarios  is  that  scarcity  of  resources  is  driving  up  the 
total  offload  time.  The  increase  in  distance  form  one  to 
six  miles  makes  the  lighter  resources  even  more  scarce, 
thus,  a  higher  offload  time. 

It  must  be  noted  that  without  empirical  data  to 
compare  with,  it  is  difficult  to  say  what  the  queue  times 
and  the  idle  times  should  be.  There  is  a  significant  amount 
of  variance  that  results  from  a  mix  of  lighters  with 
different  load  capacities.  What  has  been  found  in  empirical 
observations  is  that  using  a  mix  of  lighters  with  similar 
capacities  smoothes  the  process.  The  model  results  support 
this  finding.  In  the  five  lighter  scenario  we  used  four 
LCU's.  If  an  LSV  with  a  25  vehicle  capacity  is  substituted 
for  on  LCU  in  the  five  lighter  mix,  the  awaiting  ship  queue 
time  can  be  driven  up  even  further.  With  fewer  lighters  in 
a  scenario  the  effect  is  more  pronounced. 

What  has  been  demonstrated  here  is  that  the  RO/RO 
Offload  model  can  be  useful  in  determining  throughput  time 
for  a  given  scenario.  In  real  world  operations  the  majority 
of  variables  will  be  fixed.  The  decision  maker  will  have  a 
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smaller  set  of  variables  that  can  be  adjusted  to  improve  the 
performance  in  an  offload.  For  example,  the  distance  of  the 
ship  from  the  beach  is  probably  a  function  of  anchorage 
locations,  thus  limiting  the  options.  For  a  given  distance 
and  ship  type,  the  LOTS  planner  can  use  the  RO/RO  Offload 
simulation  model  to  help  find  a  better  mix  of  lighters  to 
work  within  the  fixed  parameters. 
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v.  coHcmsioare 


A.  COSCLUSIOHS 

The  purpose  of  this  thesis  was  to  provide  a  valid  model 
with  which  reliable  estimates  of  RO/RO  throughput  could  be 
obtained.  The  RO/RO  Offload  model  is  valid  for  this  purpose 
within  the  scope  of  the  limiting  assumptions.  The  model  can 
be  used  effectively  not  only  to  estimate  throughput,  but  to 
possibly  improve  throughput  rates  by  providing  LOTS  planners 
the  opportunity  to  model  an  offload  and  adjust  the  variables 
long  before  the  real  world  equipment  is  on  station. 

The  four  demonstration  scenarios  serve  purely  as  an  il¬ 
lustration  of  how  the  model  may  be  used.  Planners  are  cer¬ 
tainly  not  limited  to  altering  only  these  variables,  in 
theory,  the  model  could  have  been  run  hundreds  of  times, 
evaluating  every  possible  combination  of  variables.  The  run 
time  for  the  model  is  so  short,  however,  that  it  may  be  used 
on  demand  to  provide  planning  factors  tailored  to  a  specific 
scenario . 
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B.  RECOMMENDATIONS 

The  RO/RO  Offload  model  also  has  the  ability  to  collect 
data  on  the  mean  time  spent  in  each  of  the  queues  by  lighter 
type  as  well  as  the  idle  time  for  ship  and  beach  spots.  It 
is  hoped  that  by  collecting  and  analyzing  this  data  that 
some  insight  could  be  gained  as  to  how  best  to  alter  the 
number  and  mix  of  lighters  for  a  scenario.  Empirical  data 
was  not  available  to  validate  these  features,  however,  they 
were  demonstrated  in  this  thesis.  We  recommend  that  in  fu¬ 
ture  operations,  data  be  collected  so  that  the  model  can  be 
further  validated. 

Regarding  future  work,  there  are  several  features  that 
could  be  added  to  either  add  fidelity  to  the  model  or  make 
it  more  user  friendly.  They  are: 

1.  Add  graphics  to  the  model. 

2.  Modify  the  model  to  allow  the  offload  of  container 
ships.  The  modular  structure  of  object-oriented 
programming  lends  itself  to  these  seemingly  broad 
modifications.  The  objects  in  the  RO/RO  Offload 
model  are  generic  enough  to  make  this  a  relatively 
simple  task. 

3 .  Incorporate  weather  and  sea  state  into  the  model . 

4.  Incorporate  equipment  failures  into  the  model. 
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APPENDIX  A  LIST  OF  ACRONYMS 

BLCP  Beach  Lighterage  Control  Point 

CSNP  Causeway  Section  Non- Powered 

CSP  Causeway  Section  Powered 

CWF  Causeway  Ferry 

DOD  Department  of  Defense 

ELCAS  Elevated  Causeway  Pier 

GPH  Gallons  per  Hour 

JLOTS  Joint  Logistics  Over  The  Shore 

LO/LO  Lift  On/Lift  Off 

LOTS  Logistics  Over  The  Shore 

LCU  Type  of  Lighter,  LCU  1466,  LCU  1610,  LCU  2000 

LSV  Logistics  Support  Vessel 

NSSR  Non- Self -Sustaining  RO/RO 

OPDS  Offshore  Petroleum  Discharge  System 

RO/RO  Roll  On/Roll  Off 

RRDF  Roll  On/Roll  Off  Discharge  Facility 

SLCP  Ship  Lighterage  Control  Point 

SSR  Self-Sustaining  RO/RO 

T-ACS  Crane  Ship 
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APPENDIX  B  OBJECT-ORIENTED  SIMULATION  PICTURES 


The  following  pages  document  the  Transition  action  dia¬ 
grams  for  the  RO/RO  Offload  model.  Transition  action 
diagrams  are  a  combination  of  old  style  flow  charts,  coupled 
with  Object-Oriented  simulation  pictures,  or  OOS-Pics.  To¬ 
gether  they  show  the  flow  of  control  in  the  Lighter  Cycle 
operation  of  the  RO/RO  Offload  model,  including  the 
interactions  between  objects,  and  their  methods  and  fields. 


59 


Figure  7:  OOS-Pics  Page  1. 
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Figure  9:  OOS-Pics  Page  3. 


63 


Prev 
Page 
Step  7, 


Prev 

.Page, 


Vacate  Spot 


RoRoObj 

ShipSpot 

SetSpotFree 


Figure  12:  OOS-Pics  Page  6. 
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Figure  14:  OOS-Pics  Page  8 


Figure  16:  OOS-Pics  Page  10, 
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Figure  18s  OOS-Pics  Page  12. 
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Figure  19:  OOS-Pics  Page  13. 


Figure  20:  OOS-Pics  Page  14. 
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Figure  21:  OOS-Pics  Page  15. 
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Figure  22:  OOS-Pics  Page  16. 
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APPENDIX  C  RO/RO  OFFLOAD  MODEL  SOURCE  CODE 


MAIN  MODULE  RoRoOff; 

{ 


Module  Name:  RoRoOff  Modified:  26  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  JLOTS  RoRo  offload  model.  Simulates  the 

instream  offload  of  rolling  stock  from  self-sustaining  and 
non- self -  sustaining  Roll  On  /  Roll  Off  ships  equiped  for 
operations  using  a  RoRo  discharge  facility  (RRDF)  and/or 
Lift  On  /  Lift  Off  (LoLo)  operations.  By  means  of  input 
files  the  user  is  able  to  change  the  scenario  by  altering 
the  number  and  type  of  Beach  landing  areas,  the  number  and 
type  of  lighterage  to  be  used,  the  type  of  ship,  and  the 
characteristics  of  the  refueling  facility. 


FROM  RepMngr  IMPORT  RepManager; 
FROM  ListAll  IMPORT  ListMaster; 
FROM  Builder  import  ObjectBuilder; 

BEGIN 

NEW (RepManager) ; 

NEW (ListMaster) ; 

ASK  ListMaster  TO  ReadAllData; 

NEW (ObjectBuilder) ; 

ASK  ObjectBuilder  TO  BuildObjects; 

ASK  RepManager  TO  ChangeRunParms ; 
ASK  RepManager  TO  Replicate; 

END  MODULE. 


81 


DEFINITION  MODULE  ListAll; 


{ 


Module  Name:  ListAll  Modified:  26  Jul  93 

Author:  M.  Bailey  Modified  By:  J.  S.  Noel 

Prof.  NPG  Lt.  USN 

DESCRIPTION:  Defines  the  ListMasterObj  which  NBWs  the 
appropriate  objects  and  fires  the  methods  to  read  in  the 
data  files  so  that  ship,  lighter,  and  beach  objects  can  be 
built . 

} 


TYPE 


ListMasterObj  =  OBJECT 

ASK  METHOD  ReadAllData; 


ASK  METHOD 
ASK  METHOD 
ASK  METHOD 
ASK  METHOD 


ReadShipList; 
ReadLighterList ; 
ReadBeachList ; 
ReadFuelAreaList ; 


END  OBJECT; 


VAR 


ListMaster  :  ListMasterObj ; 
END  MODULE. 
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IMPLEMENTATION  MODULE  ListAll; 


{ 


Module  Name:  ListAll  Last  Modified:  26  Jul  93 

Author:  M.  Bailey  Modified  By:  J.  S.  Noel 

Prof.  NPG  Lt.  USN 


DESCRIPTION:  Implements  the  ListMasterObj  which  news  the 

appropriate  objects  and  fires  the  methods  to  read  in  the 
data  files  so  that  ship,  lighter,  and  beach  objects  can  be 


built . 


FROM 

Builder 

IMPORT 

FROM 

ShpList 

IMPORT 

FROM 

LtList 

IMPORT 

FROM 

BchList 

IMPORT 

FROM 

RFAList 

IMPORT 

FROM 

ShpName 

IMPORT 

FROM 

LtName 

IMPORT 

FROM 

BchName 

IMPORT 

FROM 

RFAName 

IMPORT 

FROM 

WriteLine 

IMPORT 

OBJECT  ListMasterObj; 


} 

ShipBuilder,  BeachBuilder, 
LighterBuilder, 

FuelAreaBuilder; 

MasterShipTypeList ; 
MasterLighterTypeList ; 
MasterBeachTypeList ; 

MasterRef uelTypeList ; 
MasterShipNameList,  ShipNameRecType ; 
MasterLighterNameList , 
LighterNameRecType ; 

MasterBeachNameList ,  BeachNameRecType ; 
MasterRef uelNameList , 
RefuelNameRecType; 

WriteLine; 


{  } 

ASK  METHOD  ReadAllData; 

{  } 

BEGIN 

OUTPUT (" Reading  ship  data  "); 

ASK  SELF  TO  ReadShipList ; 

OUTPUT ( "Reading  Lighter  data  "); 
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ASK  SELF  TO  ReadLighterList ; 

OUTPUT ( " Reading  Beach  data  " ) ; 

ASK  SELF  TO  ReadBeachList ; 

OUTPUT ( "Reading  RefuelArea  data  "); 

ASK  SELF  TO  ReadFuelAreaList ; 

END  METHOD; 

} 
} 

VAR 

Rec  :  ShipNameRecType; 

BEGIN 

WriteLine("  "); 

WriteLine("  Read  ShipNameList  "); 

WriteLineC  "); 

NEW (MasterShipNameList)  ; 

ASK  MasterShipNameList  TO  ReadShipNames; 

NEW(MasterShipTypeList) ; 

Rec  :=  ASK  MasterShipNameList  First  0; 

WHILE  Rec  <>  NILREC 

OUTPUT ( "Reading  ship  info  for  "  +  Rec . ShipName) ; 

ASK  MasterShipTypeList  TO  ReadShips (Rec . ShipName) ; 

Rec  :=  ASK  MasterShipNameList  Next (Rec); 

END  WHILE; 

END  METHOD; 


{ 

ASK  METHOD  ReadShipList ; 
{ 
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ASK  METHOD  ReadLighterList ; 

{ 


} 


VAR 

Rec  :  LighterNameRecType; 

BEGIN 

WriteLine("  "); 

WriteLine("  Read  LighterNameList  "); 

WriteLine("  "); 

NEW (MasterLighterNameList) ; 

ASK  MasterLighterNameList  TO  ReadLighterNames; 

NEW(MasterLighterTypeList) ; 

Rec  : =  ASK  MasterLighterNameList  First ( ) ; 

WHILE  Rec  <>  NILREC 

OUTPUT ( "Reading  Lighter  info  for  "  +  Rec . LighterName) ; 

ASK  MasterLighterTypeList  TO 
ReadLighters (Rec . LighterName) ; 

Rec  :=  ASK  MasterLighterNameList  Next (Rec); 

END  WHILE; 

END  METHOD; 

} 
} 

VAR 

Rec  :  BeachNameRecType; 


{ 

ASK  METHOD  ReadBeac’nList ; 
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BEGIN 

WriteLine ("  "); 

WriteLine ("  Read  BeachNameList  "); 

WriteLine ( "  " ) ; 

NEW(MasterBeachNameList) ; 

ASK  MasterBeachNameList  TO  ReadBeachNames; 

NEW(MasterBeachTypeList) ; 

Rec  :=  ASK  MasterBeachNameList  First (); 

WHILE  Rec  <>  NILREC 

OUTPUT ( "Reading  Beach  info  for  "  +  Rec.BeachName); 

ASK  MasterBeachTypeList  TO  ReadBeaches (Rec.BeachName) ; 

Rec  :=  ASK  MasterBeachNameList  Next (Rec); 

END  WHILE; 

END  METHOD; 


{ . - . } 

ASK  METHOD  ReadFuelAreaList ; 

{  } 


VAR 

Rec  :  RefuelNameRecType; 

BEGIN 

WriteLine ( "  " ) ; 

WriteLine ("  Read  RefuelNameList  ")  ; 

WriteLine ( "  " ) ; 

NEW(MasterRefuelNameList)  ; 

ASK  MasterRefuelNameList  TO  ReadRefuelNames; 
NEW(MasterRefuelTypeList) ; 
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Rec  :=  ASK  MasterRefuelNameList  First (); 

WHILE  Rec  <>  NILREC 

OUTPUT ( "Reading  Refuel  info  for  "  +  Rec.RefuelName) ; 
ASK  MasterRefuelTypeList  TO 
ReadRefuelArea (Rec . RefuelName) ; 

Rec  :=  ASK  MasterRefuelNameList  Next (Rec); 

END  WHILE; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


definition  MODULE  ReclOHandle; 

{ 

Module  Name:  ReclOHandle  Last  Modified:  18  Jun  93 

Author:  M.  Bailey  Modified  By;  J.  S.  Noel 

Prof.  NPGS  Lt.  USN 

DESCRIPTION:  Defines  the  RecIOHandleObj .  This  PROTO  object 

serves  as  a  platform  for  input /output  objects  in  the 
simulation.  The  ProduceRec  method  is  the  key  method  which 
inheriting  objects  must  override. 

} 

FROM  iOMod  IMPORT  StreamObj ; 

FROM  WriteLine  IMPORT  WriteLine; 


TYPE 

SArrayType  =  ARRAY  INTEGER  OF  STRING; 

SHRecType  =  RECORD 

Topstring  :  STRING; 

OwnedString  :  SArrayType; 

END  RECORD; 


SHArrayType  =  ARRAY  INTEGER  OF  SHRecType; 

ReclOHandleObj  =  PROTO 
numberln  :  INTEGER; 

ASK  METHOD  ReadRecs(IN  FileName  :  STRING); 

ASK  METHOD  ProduceRec { IN  Headstring  :  STRING) :  #ANYREC; 

{Must  inherit  and  override  to  use  ProduceRec.  Should 
tailor  ProduceRec  to  meet  the  record  type  spec,  of 
your  application. } 

ASK  METHOD  ProduceRecBy Index ( IN  Index  :  INTEGER) : 

#ANYREC ; 

{Produces  the  record  by  its  index  in  SHArray.  Used 
usually  when  the  entire  set  of  records  is  going  to  be 
produced  at  once.  No  override  needed,  as  it  relies  on 
ProduceRec . } 

{FindSHRec  newly  public} 

ASK  METHOD  FindSHRec (IN  TopString  :  STRING ; 

OUT  SHRec  :  SHRecType) ; 

SHArray  :  SHArrayType ; 

ASK  METHOD  ReadSH ( IN  File  :  StreamObj ; 

OUT  SHRec  :  SHRecType; 

OUT  error  :  BOOLEAN) ; 

ASK  METHOD  DumpRec(IN  SHRec  :  SHRecType); 

{  Dumps  the  rec  to  sim.out  } 

ASK  METHOD  Ob j Terminate; 

END  PROTO; 

END  MODULE. 
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IMPLEMENTATION  MODULE  RecIOHandle; 

{ 

Module  Name:  RecIOHandle  Last  Modified:  18  Jun  93 

Author:  M.  Bailey  Modified  By;  J.  S.  Noel 

Prof .  NPGS  Lt .  USN 

DESCRIPTION:  Implements  the  ReclOHandleObj .  This  PROTO 

object  serves  as  a  platform  for  input /output  objects  in  the 
simulation.  The  ProduceRec  method  is  the  key  method  which 
inheriting  objects  must  override. 


FROM  IOMod  IMPORT  StreamObj ,  FileUseType (Input) ; 

FROM  IOMod  IMPORT  ReadKey; 

FROM  WriteLine  IMPORT  WriteLine; 

CONST 

Heads tringSpew  =  FALSE; 

Spew  =  FALSE; 

LittleSpew  =  FALSE; 

TYPE 

StringRecType  =  RECORD 
String  :  STRING; 

Next  :  StringRecType; 

END  RECORD; 

VAR 

NameOfFile  :  STRING; 

PROTO  ReclOHandleObj; 

{  } 

ASK  METHOD  DumpRec(IN  SHRec  :  SHRecType) ; 

{  Dumps  the  rec  to  sim.out  } 

{  } 
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i  :  INTEGER; 
max  :  INTEGER; 

BEGIN 

WriteLine (SHRec . Topstring  +  "  ->  (has  "  + 

INTTOSTR (HIGH (SHRec . OwnedString) ) 

+  "  fields)"); 

max  :=  HIGH ( SHRec. OwnedSt r ing) ; 

FOR  i  :=  1  TO  max 

WriteLine ("  ->"  +  SHRec .OwnedString [i]  +  "<-"); 

END  FOR; 

END  METHOD; 


{ 

ASK  method  ProduceRec ( IN  Headstring  :  STRING) :  ANYREC; 

{ . 

{This  method  does  nothing,  as  it  needs  to  be  overridden.  } 

BEGIN 

RETURN  (NILREC)  ; 

END  METHOD; 


{ 

ASK  METHOD  ProduceRecBylndex ( IN  Index  :  INTEGER) :  ANYREC; 

{ 

VAR 


Rec  :  ANYREC; 


BEGIN 


IF  Index  <=  HIGH (SHAr ray) 

Rec  : =  ProduceRec (SHArray [Index] . Topstring) ; 

ELSE 

Rec  :=  NILREC; 

END  IF; 

RETURN (Rec) ; 

END  METHOD; 

} 
} 

VAR 

File  :  StreamObj ; 
numberOfSH  :  INTEGER; 
i  :  INTEGER; 
error  :  BOOLEAN; 
string  :  STRING; 

BEGIN 

NameOfFile  :=  FileName; 

{NameOfFile  is  a  local  var  used  in  error  message.} 

NEW (File) ; 

ASK  File  TO  Open (FileName,  Input); 

ASK  File  TO  Readlnt (numberOfSH) ; 

ASK  File  TO  ReadLine ( string) ; 

number In  :=  numberOfSH; 


{ 

ASK  METHOD  ReadRecsdN  FileName  :  STRING); 
{ 
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IF  LittleSpew 

WriteLine ( "Opened  file  "  +  FileName  +  "  which  has  "  + 
INTTOSTR (numberOfSH)  + 

"  SHRecords " ) ; 


END  IF; 


NEW(SHArray,  l . .numberOfSH) ; 

FOR  i  : =  1  TO  numberOfSH 
IF  Heads tringSpew 

WriteLine(" . Rec  "  +  INTTOSTR(i) )  ; 

OUTPUT ( " Rec  "  +  INTTOSTR(i)  +  "  "); 

END  IF; 


ReadSH(File,  SHArrayti],  error); 

IF  error 

OUTPUT ( "problem  reading  file  ", 
DETECTED  at  "  + 

INTTOSTR ( i ) ) ; 

WriteLine ( "problem  reading  file 
FORMAT  DETECTED  at  " 
INTTOSTR (i) ) ; 

END  IF; 


FileName,  "  BAD  FORMAT 


"  +  FileName  +  "  BAD 
+ 


END  FOR; 

END  METHOD; 


{ ===================== ==Private  Methods====================} 

{  } 

ASK  METHOD  ReadSH(IN  File  :  StreamObj ; 

OUT  SHRec  :  SHRecType; 

OUT  error  :  BOOLEAN) ; 

{  } 


VAR 


string  :  STRING; 
junk  :  STRING; 
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numberOf Strings  :  INTEGER; 

StringRec,  OldStringRec  :  StringRecType; 
first  :  StringRecType; 
arrow  :  STRING; 

StringRec  :  StringRecType; 
i  :  INTEGER; 
z  :  CHAR; 

BEGIN 

NEW(SHRec)  ; 

REPEAT 

ASK  File  TO  Readstring (string) ; 

IF  ((string  =  OR  (SUBSTR(1, 1, string)  =  "#")) 

ASK  File  TO  ReadLine ( junk) ; 

END  IF; 

UNTIL  ((string  <>  AND  (SUBSTRd,  l,  string)  <>  "#")); 

SHRec .Topstring  :=  string; 

IF  Heads tringSpew 

OUTPUT ( SHRec . Topstring) ; 
writeLine("  "  +  SHRec. Tops t r ing ) ; 

END  IF; 

NEW (StringRec) ; 
numberOf Strings  :=  1; 
first  :=  StringRec; 

ASK  File  TO  Readstring (arrow) ; 

IF  arrow  <> 

OUTPUT("file  not  formatted  correctly"); 
error  : =  TRUE; 

RETURN; 

ELSE 

error  :=  FALSE; 
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END  IF; 


WHILE  string  <>  "\\" 

ASK  File  TO  Readstring ( string) ; 

IF  ((string  =  "..")  OR  (SUBSTRd,  l,  string)  *  "#")) 
ASK  File  TO  ReadLine (string) ; 

ELSE 

OldStringRec  :=  StringRec; 

StringRec . String  :=  string; 

NEW (StringRec) ; 

OldStringRec. Next  :=  StringRec; 
numberOf Strings  :=  numberOf Strings  +  l; 

END  IF; 

END  WHILE; 

ASK  File  TO  ReadLine ( string) ; 

IF  (numberOf Strings  >  0)  AND  NOT  error 

new (SHRec .OwnedString,  l .. numberOf Strings  -  2) ; 
StringRec  :=  first; 

FOR  i  :=  l  TO  numberOf Strings  -  2 

SHRec. OwnedString [i]  :=  StringRec. String; 

IF  Spew 

OUTPUT ( i ,  "  ",  StringRec. String) ; 

WriteLine (SHRec. OwnedStr ing [i]  +  "  "); 

END  IF; 

StringRec  :=  StringRec .Next ; 

END  FOR; 

END  IF; 
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END  METHOD; 


{  } 

ASK  METHOD  PindSHRec(IN  TopString  :  STRING; 

OUT  SHRec  :  SHRecType) ; 

{  } 

VAR 

ThisRec  :  SHRecType; 
i  :  INTEGER; 

BEGIN 

i  :  =  0 ; 

REPEAT 

INC (i) ; 

ThisRec  :=  SHArrayfi]; 

UNTIL  ((i  >=  HIGH (SHArray) )  OR  (ThisRec . Topstring  = 
TopString) ) ; 

IF  (ThisRec.  TopString  =  TopString) 

SHRec  :=  ThisRec; 

ELSE 

SHRec  :=  NILREC; 

WriteLine ( "FindSHRec  of  ReclOHandle  came  up  empty 
searching  for  Topstring  "  + 

TopString) ; 

writeLine ( "while  looking  in  file  "  +  NameOfFile) ; 

END  IF; 

IF  Spew 

WriteLine ("  !!!  find  sh  rec  called  with  topstring  "  + 
TopString  + 
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"  and  returns  rec  with  topstring  "  + 
ThisRec. Topstring) ; 


END  IF; 


END  METHOD; 

{ 

ASK  METHOD  Ob j Terminate; 

{ 

VAR 

i  :  INTEGER; 

REC  :  SHRecType ; 

BEGIN 

FOR  i  :=  l  TO  HIGH ( SHArray) 
REC  :=  SHArray [i] ; 

DISPOSE (REC. OwnedString) ; 
DISPOSE (REC) ; 

END  FOR; 

END  METHOD; 

END  PROTO; 

END  MODULE. 


DEFINITION  MODULE  ShpName; 

{ 


Module  Name :  ShpName 
Author:  J.  S.  Noel 


Last  Modified:  28  Jul  93 


USN 


Lt . 

DESCRIPTION:  implements  the 
ShipNamelORecHandleObj  which 
input ing  the  Ship  Names  into 
scenario. 


ShipNameListObj  and  the 
together  provide  the  means  for 
the  simulation  for  a  given 

} 


FROM  RecIOHandle  IMPORT  RecIOHandleObj ; 
FROM  ListMod  IMPORT  QueueList; 

TYPE 


ShipNameRecType  =  RECORD 

ShipName  :  STRING; 


END  RECORD; 

ShipNameListObj  =  OBJECT (QueueList [ANYREC  : ShipNameRecType] ) 
ASK  METHOD  ReadShipNames ; 

END  OBJECT; 


ShipNamelORecHandleObj  =OBJECT ( RecIOHandleObj [ANYREC : 

ShipNameRecType] ) 


END  OBJECT; 


VAR 

ShipNamelOHandler  :  ShipNamelORecHandleObj ; 
MasterShipNameList  :  ShipNameListObj; 

END  MODULE. 
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IMPLEMENTATION  MODULE  ShpName; 


{ 


Module  Name:  ShpName  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 


DESCRIPTION:  Implements  the  ShipNameListObj  and  the 

ShipNamelORecHandleObj  which  together  provide  the  means  for 
inputing  the  Beach  names  into  the  simulation  for  a  given 
scenario. 


} 


FROM  RecIOHandle  IMPORT  SHArrayType; 


OBJECT  ShipNameListObj ; 


{  } 

ASK  METHOD  ReadShipNames; 

{ . - . } 

VAR 

Rec  :  ShipNameRecType ; 


index  :  INTEGER; 
high  :  INTEGER; 
SHArray  :  SHArrayType ; 


BEGIN 

IF  ShipNamelOHandler  =  NILOBJ 
NEW(ShipNamelOHandler) ; 

ASK  ShipNamelOHandler  TO  ReadRecs ( "ShpName.dat") ; 
END  IF; 

SHArray  :=  ASK  ShipNamelOHandler  SHArray; 
high  :=  HIGH (SHArray) ; 

FOR  index  :=  l  TO  high 
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NEW(Rec) ; 

Rec . ShipName  : =  SHArray [ index] . Topstring ; 
Add(Rec) ; 

END  FOR; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  ShpList; 

{ 

Module  Name:  ShpList  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

description:  Defines  the  ShipTypeListObj  and  the 
ShipTypeiORecHandleObj  which  together  provide  the  means  for 
inputing  the  RoRo's  into  the  simulation  for  a  given 
scenario. 

} 

FROM  ReciOHandle  IMPORT  RecIOHandleObj ; 

FROM  LiStMod  IMPORT  QueueList; 

FROM  Global  IMPORT  SpotRecType; 

FROM  Ship  IMPORT  ShipTypeType ; 

TYPE 


SpotArrayType  =  ARRAY  INTEGER  OF  SpotRecType; 
ShipTypeRecType  =  RECORD 


ShipTypeName 

TypeShip 

DistanceFromBLCP 


STRING; 

ShipTypeType; 

REAL; 


99 


NumOf Spots 
Spot Array 
NumOf LoLoVehicles 
NumOf RRDFVehicles 
NumOf AnySpotVehicles 


END  RECORD; 


INTEGER; 

SpotAr rayType ; 
INTEGER; 
INTEGER; 
INTEGER; 


ShipTypeListObj  =  OBJECT { QueueLis t [ANYREC  : 

ShipTypeRecType] ) 

ASK  METHOD  ReadShips(IN  ShipName  :  STRING); 
END  OBJECT; 


ShipType I ORecHandl eOb j  =  OBJECT (RecIOHandleObj [ANYREC  : 

ShipTypeRecType] ) 

OVERRIDE 

ASK  METHOD  ProduceRec ( IN  Headstring  :  STRING) : 

ShipTypeRecType ; 

END  OBJECT; 


VAR 

ShipTypelOHandler  :  ShipTypelORecHandleObj ; 
MasterShipTypeList  :  ShipTypeListObj ; 

END  MODULE. 


IMPLEMENTATION  MODULE  ShpList; 

{ 

Module  Name:  ShpList  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  the  ShipTypeListObj  and  the 

ShipTypelORecHandleObj  which  together  provide  the  means  for 
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inputing  the  RoRo's  into  the  simulation  for  a  given 
scenario. 


FROM  RecIOHandle  IMPORT  SHRecType; 

FROM  WriteLine  IMPORT  WriteLine; 

FROM  Global  IMPORT  SpotRecType; 

FROM  Convert  IMPORT  SpotTypeToStr, StrToSpotType, 

ShipTypeToStr, StrToShipType, 
BooleanToStr; 

OBJECT  ShipTypelORecHandleObj ; 

{ 

ASK  METHOD  ProduceRec ( IN  Headstring  :  STRING): 

ShipTypeRecType ; 

{ 

VAR 

SHRec  :  SHRecType ; 

Rec  :  ShipTypeRecType; 
index,  i  :  INTEGER; 

Char  :  CHAR; 

Spot  :  SpotRecType ; 

BEGIN 

WriteLine ("  producing  record  Ship  type  "  +  Headstring); 
OUTPUT ("  producing  record  Ship  type  "  +  Headstring); 
FindSHRec (Headstring,  SHRec); 

WriteLine ( "  " ) ; 

IF  SHRec  *  NILREC 

OUTPUT ( " No  record  Found  of  "  +  Headstring); 

WriteLine ( "No  record  Found  of  "  +  Headstring); 

HALT; 

END  IF; 

OUTPUT ("  got  SHRec"); 

NEW (Rec) ; 

Rec . ShipTypeName  : =  SHRec . Topstring ; 

OUTPUT (" ShipTypeName  is  "  +  Rec.ShipTypeName); 

WriteLine ( "ShipTypeName  is  "  +  Rec.ShipTypeName); 


index  : =  l ; 


Rec . TypeShip  : =  S trToShipType ( SHRec . OwnedStr ing [ index] ) ; 
WriteLine ("TypeShip  is  "  +  ShipTypeToStr ( Rec. TypeShip) )  ; 
INC { index) ; 


Rec.DistanceFromBLCP  :=  STRTOREAL( SHRec. OwnedStr ing [index] ) 
WriteLine ( "DistanceFromBLCP  is  "  + 

REALTOSTR (Rec.DistanceFromBLCP) ) ; 

INC  (index)  ; 

Rec . NumOf Spots  : =  STRTOINT ( SHRec . OwnedStr ing [ index] ) ; 
WriteLine ( "NumOf Spots  is  "  +  INTTOSTR( Rec. NumOf Spots) ) ; 

INC (index) ; 

NEW (Rec. Spot Array,  l. .Rec. NumOf Spots) ; 

OUTPUT (" index  =  "  +  INTTOSTR ( index) ) ; 

IF  ( Rec. NumOf Spots  >  0) 
i  :=  1; 

WHILE. i  <=  Rec .NumOf Spots 
NEW (Spot) ; 

Spot .SpotClassification  := 

StrToSpotType ( SHRec. OwnedSt ring [index] ) ; 

WriteLine ( "Spot  "+  INTTOSTR (i)  +  "  is  Type  "  + 

SpotTypeToStr (Spot . SpotClassification) ) ; 

OUTPUT ( " Spot  "+  INTTOSTR ( i)  +  "  is  Type  "  + 

SpotTypeToStr (Spot . SpotClassification) ) ; 

Char  :=  SCHAR (SHRec. OwnedStr ing [index+i] ,  l) ; 

CASE  Char 

WHEN  ' T ' , ' t '  :  Spot . SpOtFree  :=  TRUE; 

WHEN  'F'.'f'  :  Spot . SpotFree  :=  FALSE; 

END  CASE; 

WriteLine ( "Spot  "+  INTTOSTR (i)  +  "  is  Free  (T/F)  "  + 

BooleanToStr (Spot .SpotFree) ) ; 
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OUTPUT ("Spot  "+  INTTOSTR (i)  +  "  is  Free  (T/F)  "  + 

Char)  ; 


Rec . Spot Array [i]  :=  Spot; 

i  :  =  i  +  1  ; 

index  :=  index  +  2; 

END  WHILE; 

END  IF; 

index  :=  index; 

Rec.NumOfLoLoVehicles  :=  STRTOlNT(SHRec. OwnedString [index] ) ; 
WriteLine ( "NumofLoLoVehicles  is  "  + 

INTTOSTR (Rec . NumOf LoLoVehicles) ) ; 

INC (index) ; 

Rec . NumOf RRDFVehicles  : =  STRTOINT ( SHRec . OwnedString [index] ) ; 
WriteLine ( "NumOf RRDFVehicles  is  "  + 

INTTOSTR (Rec. NumOf RRDFVehicles) ) ; 

INC ( index) ; 

Rec . NumOf AnySpotVehicles  : = 

STRTOINT (SHRec . OwnedString [index] ) ; 
WriteLine ( "NumOf AnySpotVehicles  is  "  + 

INTTOSTR  (Rec  .NtimOf  AnySpotVehicles) )  ; 

INC (index) ; 

OUTPUT( "finished  reading  Ship  type  information"); 

RETURN (Rec) ; 

END  METHOD; 

END  OBJECT; 


OBJECT  ShipTypeListObj ; 
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{ 

ASK  METHOD  ReadShips(IN  ShipType  :  STRING); 

{ 

VAR 

Rec  :  ShipTypeRecType; 

BEGIN 

IF  ShipTypelOHandler  =  NILOBJ 
NEW (ShipType I OHandler) ; 

ASK  ShipTypelOHandler  TO  ReadRecs ( "ShipType.dat" ) ; 

END  IF; 

OUTPUTCship  handler  instanciated  and  full  of  raw  records") 
OUTPUT( "about  to  produce  type  record  for  "  + ShipType ) ; 

Rec  :=  ASK  ShipTypelOHandler  TO  ProduceRec (ShipType) ; 
OUTPUT ( "  got  the  record  complete  " ) ; 

IF  (Rec  <>  NILREC) 

Add (Rec) ; 

ELSE 

output ("  never  found  record!"); 

END  IF; 

END  METHOD; 

END  OBJECT; 


END  MODULE. 


DEFINITION  MODULE  LtName; 

{ 


Module  Name:  LtName  Last  Modified:  28  Jul  98 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  the  LighterNameListObj  and  the 
LighterNamelORecHandleObj  which  together  provide  the  means 
for  inputing  the  Lighter  Names  into  the  simulation  for  a 
given  scenario. 

} 


FROM  RecIOHandle  IMPORT  RecIOHandleObj ; 
FROM  ListMod  IMPORT  QueueList; 


TYPE 


LighterNameRecType  =  RECORD 

Light erName  :  STRING; 

END  RECORD; 

LighterNameListObj  =  OBJECT ( QueueLi s t [anyrec  : 

LighterNameRecType] ) 
ASK  METHOD  ReadLight erName s ; 

END  OBJECT; 


LighterNamelORecHandleObj  =OBJECT (RecIOHandleObj [ANYREC : 

LighterNameRecType] ) 


END  OBJECT; 


VAR 

LighterNamelOHandler  :  LighterNamelORecHandleObj ; 
MasterLighterNameList  :  LighterNameListObj; 

END  MODULE. 
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IMPLEMENTATION  MODULE  LtName; 


{ 


Module  Name:  LtName  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  the  LighterNameListObj  and  the 

LighterNamelORecHandleObj  which  together  provide  the  means 
for  inputing  the  Lighter  Names  into  the  simulation  for  a 
given  scenario. 

} 


FROM  ReclOHandle  IMPORT  SHArrayType; 
FROM  WriteLine  IMPORT  WriteLine; 


OBJECT  LighterNameListObj ; 


{ . } 

ASK  METHOD  ReadLighterNames ; 

{  } 

VAR 

Rec  :  LighterNameRecType; 


index  :  INTEGER; 
high  :  INTEGER; 
SHArray  :  SHArrayType; 


BEGIN 

IF  LighterNamelOHandler  =  NILOBJ 
NEW ( Light erNamelOHandler) ; 

ASK  LighterNamelOHandler  TO  ReadRecs ( "LtName.dat" ) ; 
END  IF; 

SHArray  :=  ASK  LighterNamelOHandler  SHArray; 
high  :=  HIGH (SHArray); 
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FOR  index  :=  l  TO  high 

WriteLine ( "Reading  Lighter  Name  in  LtName.mod  "); 
NEW (Rec) ; 

Rec . LighterName  :=  SHArray [index] .Topstring; 

Add (Rec) ; 

END  FOR; 

WriteLine  ( " - exit  ReadLight erNames . " ) 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  LtList; 

{ . 


Module  Name:  LtList  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 
Lt .  USN 

DESCRIPTION:  Defines  the  LighterTypeListObj  and  the 
LighterTypeiORecHandleObj  which  together  provide  the  means 
for  inputing  the  Lighter's  into  the  simulation  for  a  given 
scenario. 

} 

FROM  ReclOHandle  IMPORT  ReclOHandleObj ; 

FROM  ListMod  IMPORT  QueueList; 

FROM  Global  IMPORT  spotRecType,  SpotType; 

FROM  Lighter  IMPORT  LighterNameType; 

TYPE 


LighterTypeRecType  =  RECORD 
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ID 

Light erTypeName 

SpotRequired 

SpeedMax 

SpeedFull 

MaxLoad 

FuelCap 

BurnRate 

MinFuel 

END  RECORD; 


STRING; 

Light erNameType ; 
SpotType ; 

REAL; 

REAL; 

INTEGER; 

REAL; 

REAL; 

REAL; 


LighterTypeListObj  =  OBJECT ( QueueList [ANYREC  : 

LighterTypeRecType] ) 

ASK  METHOD  ReadLighters ( IN  LighterName  :  STRING); 

END  OBJECT; 

LighterTypelORecHandleObj  =  OBJECT (Rec I OHandleObj [ANYREC 

LighterTypeRecType] ) 

OVERRIDE 

ASK  METHOD  ProduceRec ( IN  Headstring  :  STRING) : 

LighterTypeRecType ; 

END  OBJECT ; 


VAR 

LighterTypelOHandler  :  LighterTypelORecHandleObj ; 
MasterLighterTypeList  :  LighterTypeListObj ; 

END  MODULE. 
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IMPLEMENTATION  MODULE  LtList; 


Module  Name:  LtList  Last  Modified:  18  Jun  93 

Author :  J .  S .  Noel 

Lt .  USN 

DESCRIPTION:  Implements  the  LighterTypeListObj  and  the 

LighterTypelORecHandleObj  which  together  provide  the  means 
for  inputing  the  Lighter's  into  the  simulation  for  a  given 
scenario. 

FROM  ReclOHandle  IMPORT  SHRecType; 

FROM  WriteLine  IMPORT  WriteLine; 

FROM  Global  IMPORT  SpOtRecType; 

FROM  Convert  IMPORT  SpotTypeToStr,  StrToSpotType, 

Light erNameTypeToS t r , 

S  t  r ToL i gh t  e r NameType ; 

OBJECT  LighterTypelORecHandleObj ; 


ASK  METHOD  ProduceRec ( IN  Headstring  :  STRING): 

LighterTypeRecType ; 


VAR 

SHRec  :  SHRecType; 

Rec  :  LighterTypeRecType; 
index,  i  :  INTEGER; 

Char  :  CHAR; 


BEGIN 

WriteLine ("  producing  record  Lighter  type  "  +  Headstring); 
OUTPUT ( "  producing  record  Lighter  type  "  +  Headstring); 
FindSHRec (Headstring,  SHRec); 

WriteLine ( "  " ) ; 

IF  SHRec  =  NILREC 

OUTPUT ("No  record  Found  of  "  +  Headstring); 
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WriteLine ( "No  record  Found  of  "  +  Headstring); 

HALT; 

END  IF; 

OUTPUT ("  got  SHRec"); 

NEW(Rec) ; 

Rec .ID  : =  SHRec . Topstring ; 

WriteLine ("LighterlD  is  "  +  Rec. ID); 
index  : =  1 ; 

Rec . Light erTypeName  : = 

StrToLighterNameType (SHRec . OwnedString [index] ) ; 

OUTPUT (" Light erTypeName  is  "  + 

LighterNameTypeToStr (Rec. Light erTypeName) ) ; 

WriteLine  { "LighterTypeName  is  r-  + 

LighterNameTypeToStr (Rec. Light erTypeName) ) ; 

INC ( index) ; 

Rec . SpotRequired  : =  S trToSpotType ( SHRec . OwnedString [ index) ) ; 
WriteLine ( "SpotRequired  is  "  + 

SpotTypeToStr (Rec. SpotRequired) ) ; 

INC ( index) ; 

Rec . SpeedMax  : =  STRTOREAL ( SHRec . OwnedString [ index] ) ; 
WriteLine ( "MaxSpeed  is  "  +  REALTOSTR (Rec. SpeedMax) ) ; 

INC (index) ; 

Rec . SpeedFull  : =  STRTOREAL (SHRec . OwnedString [index] ) ; 
WriteLine ( "Full  Load  Speed  is  "  +  REALTOSTR ( Rec . SpeedFull) ) ; 
INC (index) ; 

Rec .MaxLoad  : =  STRTOI NT (SHRec . OwnedString [index] ) ; 

WriteLine ( "Max  Load  is  "  +  INTTOSTR (Rec. MaxLoad) ) ; 

INC (index) ; 

Rec . FuelCap  : =  STRTOREAL (SHRec . OwnedString [index] ) ; 
WriteLine (" Fuel  capacity  is  "  +  REALTOSTR (Rec. FuelCap) ) ; 

INC (index) ; 

Rec . BurnRate  : =  STRTORc^L (SHRec . OwnedString [index] ) ; 
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WriteLine ( "Fuel  burn  rate  is  "  +  REALTOSTR(Rec.BurnRate) ) ; 
INC (index) ; 

Rec .MinFuel  : =  STRTOREAL (SHRec . OwnedString [index] ) ; 
WriteLine ( "minimum  fuel  percentage  is  "  + 

REALTOSTR( Rec. MinFuel) ) ; 

INC (index) ; 

OUTPUT( "finished  reading  Lighter  type  information"); 

RETURN (Rec) ; 

END  METHOD; 

END  OBJECT; 


OBJECT  LighterTypeListObj ; 

{ 

ask  method  ReadLighters ( IN  LighterType  :  string); 

{ . 

VAR 

Rec  :  LighterTypeRecType; 

BEGIN 

IF  LighterTypelOHandler  =  NILOBJ 
NEW ( Light erTypelOHandler) ; 

ASK  LighterTypelOHandler  TO  ReadRecs ( "LtType.dat" ) ; 

END  IF; 

OUTPUT { "Lighter  handler  instanciated  and  full  of  raw 
records" ) ; 

OUTPUT ( "about  to  produce  type  record  for  "  +  LighterType); 
Rec  :=  ASK  LighterTypelOHandler  TO  ProduceRec (LighterType) ; 
OUTPUT ("  got  the  record  complete  "); 

IF  Rec  <>  NILREC 
Add (Rec) ; 

ELSE 


OUTPUT ("  never  found  record!"); 
END  IF; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  BchName; 


Module  Name:  BchName  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  the  BeachNameListObj  and  the 

BeachNameiORecHandleObj  which  together  provide  the  means  for 
inputing  the  Beach  Names  into  the  simulation  for  a  given 
scenario. 


FROM  RecIOHandle  IMPORT  ReclOHandleObj ; 
FROM  ListMod  IMPORT  QueueList; 


TYPE 

BeachNameRecType  =  RECORD 

BeachName  :  STRING; 

END  RECORD; 

BeachNameListObj  =OBJECT( QueueList [ANYREC: BeachNameRecType] ) 
ASK  METHOD  ReadBeachNames ; 

END  OBJECT; 
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BeachNamelORecHandleObj  =  OBJECT (ReclOHandleObj [ANYREC  : 
BeachNameRecType] ) 

END  OBJECT; 

VAR 

BeachNamelOHandler  :  BeachNamelORecHandleObj ; 
MasterBeachNameList  :  BeachNameListObj ; 

END  MODULE. 


IMPLEMENTATION  MODULE  BchName; 


{ 

Module  Name:  BchName  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 


DESCRIPTION:  Implements  the  BeachNameListObj  and  the 

BeachNamelORecHandleObj  which  together  provide  the  means  for 
inputing  the  Beach  names  into  the  simulation  for  a  given 
scenario. 


} 


FROM  RecIOHandle  IMPORT  SHArrayType; 


OBJECT  BeachNameListObj ; 


{  } 

ASK  METHOD  ReadBeachNames ; 

{  } 

VAR 

Rec  :  BeachNameRecType; 


index  :  INTEGER; 
high  :  INTEGER; 
SHArray  :  SHArrayType; 
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BEGIN 


IF  BeachNamelOHandler  =  NILOBJ 
NEW(BeachNamelOHandler)  ; 

ASK  BeachNamelOHandler  TO  ReadRecs ( "BchName.dat" ) ; 
END  IF; 

SHArray  :=  ASK  BeachNamelOHandler  SHArray; 
high  :=  HIGH (SHArray) ; 

FOR  index  :=  l  TO  high 
NEW (Rec) ; 

Rec . BeachName  :=  SHArray [index] .Topstring; 

Add (Rec) ; 

END  FOR; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  BchList ; 

{ 


Module  Name:  BchList  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  the  BeachTypeListObj  and  the 
BeachTypelORecHandleObj  which  together  provide  the  means  for 
inputing  the  Beaches  into  the  simulation  for  a  given 
scenario. 

} 

FROM  RecIOHandle  IMPORT  RecIOHandleObj ; 

FROM  ListMod  IMPORT  QueueList; 

FROM  Global  IMPORT  SpotRecType,  SpotType; 
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FROM  Beach  IMPORT  BeachType; 

FROM  ShpList  IMPORT  SpotArrayType; 

TYPE 


BeachTypeRecType  =  RECORD 


ID 

BeachTypeName 
NumOf Spots 
SpotArray 
DistanceFromSLCP 
DistBeachToArea 


STRING; 
BeachType; 
INTEGER; 
SpotArrayType ; 
REAL; 

REAL; 


END  RECORD; 

BeachTypeListObj  =  OBJECT (QueueList [ANYREC  : 

BeachTypeRecType] ) 

ASK  METHOD  ReadBeaches ( IN  BeachName  :  string); 

END  OBJECT; 

BeachTypelORecHandleObj  =  OBJECT (Rec I OHandleObj [ANYREC 

BeachTypeRecType] ) 

OVERRIDE 

ASK  METHOD  ProduceRec ( IN  Headstring  :  STRING) : 

BeachTypeRecType ; 

END  OBJECT; 

VAR 


BeachType I OHandler  :  BeachTypelORecHandleObj ; 
MasterBeachTypeList  :  BeachTypeListObj ; 

END  MODULE. 
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IMPLEMENTATION  MODULE  BchList; 


{ 

Module  Name:  BchList  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  the  BeachTypeListObj  and  the 

BeachTypelORecHandleObj  which  together  provide  the  means  for 
inputing  the  Beaches  into  the  simulation  for  a  given 
scenario. 

} 

FROM  ReclOHandle  IMPORT  SHRecType; 

FROM  WriteLine  IMPORT  WriteLine; 

FROM  Global  IMPORT  SpotRecType; 

FROM  Convert  IMPORT  SpotTypeToStr,  StrToSpotType, 

BeachTypeToStr,  StrToBeachType, 
BooleanToStr; 


OBJECT  BeachTypelORecHandleObj ; 

{  } 

ASK  METHOD  ProduceRec ( IN  Headstring  :  STRING) : 

BeachTypeRecType ; 

{  } 

VAR 

SHRec  :  SHRecType ; 

Rec  :  BeachTypeRecType; 
index,  i  :  INTEGER; 

Char  :  CHAR; 

Spot  :  SpotRecType ; 


BEGIN 

WriteLine ("  producing  record  Beach  type  "  +  Headstring); 
OUTPUT ("  producing  record  Beach  type  "  +  Headstring); 
FindSHRec (Headstring,  SHRec); 

WriteLine ( "  " ) ; 
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IF  SHRec  =  NILREC 

OUTPUT ("No  record  Found  of  "  +  Headstring); 

WriteLine ( "No  record  Found  of  "  +  Headstring); 

HALT; 

END  IF; 

OUTPUT ("  got  SHRec"); 

NEW (Rec) ; 

Rec.lD  :=  SHRec. Topstring; 

WriteLine ( "BeachlD  is  "  +  Rec.lD); 
index  : =  l ; 

Rec . BeachTypeName  : » 

StrToBeachType (SHRec . OwnedString [index] ) ; 
output ( "BeachTypeName  is  "  + 

BeachTypeToStr ( Rec. BeachTypeName) ) ; 

WriteLine ( "BeachTypeName  is  "  + 

BeachTypeToStr (Rec. BeachTypeName) ) ; 

INC (index) ; 

Rec . NumOf Spots  :  =  STRT0INT (SHRec . OvmedString  [index] )  ; 
WriteLine ( "Number  Of  Spots  is  "  +  INTTOSTR (Rec. NumOf Spots) ) ; 
INC ( index) ; 

NEW(Rec.SpotArray,  l. .Rec. NumOf Spots) ; 
output (" index  =  "  +  INTTOSTR ( index) ) ; 

IF  ( Rec. NumOf Spots  >  0) 
i  :  =  1  ; 

WHILE  i  <=  Rec .NumOf Spots 
NEW (Spot) ; 

Spot .SpotClassification  := 

StrToSpotTyoe (SHRec . OvmedString [index] ) ; 

WriteLine ( "Spot  "+  INTTOSTR (i)  +  "  is  Type  "  + 

SpotTypeToStr (Spot . SpotClassification) ) ; 

OUTPUT ( " Spot  "+  INTTOSTR (i)  +  "  is  Type  "  + 

SpotTypeToStr (Spot . SpotClassification) ) ; 
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Char  :=  SCHAR (SHRec . OwnedString [index+l] ,  1)  ; 

CASE  Char 

WHEN  ' T ' , • t '  :  Spot . Spot Free  : =  TRUE; 

WHEN  • F ' , ' f '  :  Spot . SpotFree  : =  FALSE; 

END  CASE; 

writeLine("Spot  "  +  INTTOSTR ( i)  +  "  is  Free  (T/F)  "  + 
BooleanToStr (Spot . SpotFree) ) ; 

OUTPUT ("Spot  "+  INTTOSTR (i)  +  "  is  Free  (T/F)  "  + 
Char) ; 

Rec . SpotArray [ i ]  : =  Spot  ; 

i  :  =  i  +  1  ; 

index  :=  index  +  2; 

END  WHILE; 

END  IF; 

index  : =  index; 


Rec . Dis tanceFromSLCP  : =  STRTOREAL ( SHRec . OwnedString [ index] ) ; 
writeLine ( "DistanceFromSLCP  is  "  + 
REALTOSTR(Rec.DistanceFromSLCP) ) ; 

INC (index) ; 

Rec.DistBeachToArea  :=  STRTOREAL (SHRec .OwnedString [index] ) ; 
WriteLine ( "DistBeachToArea  is  "  + 

REALTOSTR (Rec.DistBeachToArea) ) ; 

INC (index) ; 


OUTPUT( "finished  reading  Beach  type  information"); 
RETURN (Rec) ; 

END  METHOD; 

END  OBJECT; 


OBJECT  BeachTypeListObj ; 
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{ 

ASK  METHOD  ReadBeaches ( IN  BeachType  :  STRING); 

{ 


} 

} 


VAR 

Rec  :  BeachTypeRecType; 

BEGIN 

IP  BeachType I OHandl er  =  NILOBJ 
NEW(BeachTypelOHandler) ; 

ASK  BeachTypelOHandler  TO  ReadRecs ( "BchType.dat") ; 

END  IF; 

OUTPUT ( "Beach  handler  instanciated  and  full  of  raw 
records") ; 

OU- PUT ( " about  to  produce  type  record  for  "  +  BeachType); 
Rec  :=  ASK  BeachTypelOHandler  TO  ProduceRec (BeachType) ; 
OUTPUT ( "  got  the  record  complete  " ) ; 

IF  Rec  <>  NILREC 
Add (Rec) ; 

ELSE 

OUTPUT ("  never  found  record!"); 

END  IF; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  RFAName; 

{ 

Module  Name:  RFAName  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 
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DESCRIPTION:  Defines  the  RefuelNameListObj  and  the 
RefuelNamelORecHandleObj  which  together  provide  the  means 
for  inputing  the  Refuel  area  Names  into  the  simulation  for  a 
given  scenario. 

FROM  ReclOHandle  IMPORT  ReclOHandleObj; 

FROM  ListMod  IMPORT  QueueList; 


TYPE 


RefuelNameRecType  =  RECORD 

RefuelName  :  STRING; 

END  RECORD; 

RefuelNameListObj  =  OBJECT {QueueList [ANYREC  : 

RefuelNameRecType] ) 
ask  METHOD  ReadRefuelNames; 

END  OBJECT; 


RefuelNamelORecHandleObj 
END  OBJECT; 


=  OBJECT (ReclOHandleObj [ANYREC  : 
RefuelNameRecType] ) 


VAR 

RefuelNamelOHandler  :  RefuelNamelORecHandleObj ; 
MasterRefuelNameList  :  RefuelNameListObj ; 

END  MODULE. 
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IMPLEMENTATION  MODULE  RFAName; 

{ 

Module  Name:  RFAName  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  the  RefuelNameListObj  and  the 

RefuelNamelORecHandleObj  which  together  provide  the  means 
for  inputing  the  Refuel  area  Names  into  the  simulation  for  a 
given  scenario. 

} 

FROM  RecIOHandle  IMPORT  SHArrayType; 


OBJECT  RefuelNameListObj ; 


{  } 

ASK  METHOD  ReadRefuelNames; 

{  } 

VAR 

Rec  :  RefuelNameRecType; 


index  :  INTEGER; 
high  :  INTEGER; 

SHAr r ay  :  SHArrayType ; 


BEGIN 

IF  RefuelNamelOHandler  =  NILOBJ 
NEW(RefuelNamelOHandler) ; 

ASK  RefuelNamelOHandler  TO  ReadRecs (" RFAName. dat ") ; 
END  IF; 

SHArray  :=  ASK  RefuelNamelOHandler  SHArray; 
high  :=  HIGH (SHArray) ; 

FOR  index  : =  l  TO  high 
NEW (Rec) ; 
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Rec . Ref uelName  :=  SHArray [index] .Topstring ; 
Add (Rec) ; 

END  FOR; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  RFAList; 

{ 

Module  Name:  RFAList  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  the  RefuelTypeListObj  and  the 
RefuelTypelORecHandleObj  which  together  provide  the  means 
for  inputing  the  Refuel  area  into  the  simulation  for  a  given 
scenario. 

} 

FROM  RecIOHandle  IMPORT  ReclOHandleObj ; 

FROM  ListMod  IMPORT  QueueList; 

FROM  Global  IMPORT  RefuelSpotRecType; 

FROM  Refuel  IMPORT  Ref uel Spot ArrayType; 

TYPE 


RefuelTypeRecType  =  RECORD 


AreaTypeName 

NumOfSpots 

DistAreaToShip 

SpotArray 

FuelPumpRate 


STRING; 

INTEGER; 

REAL; 

Re  f ue 1 Spo tAr r ayType ; 
REAL; 


122 


END  RECORD; 


RefuelTypeListObj  =  OBJECT (QueueList [ANYREC  : 

RefuelTypeRecType] ) 

ASK  METHOD  ReadRe fuel Area ( IN  RefuelAreaName  :  STRING); 
END  OBJECT; 

RefuelTypelORecHandleObj  =  OBJECT (ReclOHandleObj [ANYREC  : 

RefuelTypeRecType] ) 

OVERRIDE 

ASK  METHOD  ProduceRec { IN  Headstring  :  STRING): 

RefuelTypeRecType; 

END  OBJECT; 

VAR 

Ref uelTypelOHandler  :  RefuelTypelORecHandleObj ; 
MasterRefuelTypeLis^  :  RefuelTypeListObj ; 

END  MODULE. 


IMPLEMENTATION  MODULE  RFAList; 

{ 

Module  Name:  RFAList  Last  Modified:  28  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  the  RefuelTypeListObj  and  the 

RefuelTypelORecHandleObj  which  together  provide  the  means 
for  inputing  the  Refuel  area  into  the  simulation  for  a  given 
scenario. 

} 

FROM  RecIOHandle  IMPORT  SHRecType; 

FROM  WriteLine  IMPORT  WriteLine; 

FROM  Global  IMPORT  Re fuel Spot RecType; 

FROM  Convert  IMPORT  BooleanToStr; 

OBJECT  RefuelTypelORecHandleObj ; 
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} 


{ 

ASK  METHOD  ProduceRec ( IN  Headstring  :  STRING) : 

RefuelTypeRecType; 

{  } 

VAR 

SHRec  :  SHRecType ; 

Rec  :  RefuelTypeRecType; 
index,  i  :  INTEGER; 

Char  :  CHAR; 

Spot  :  RefuelSpotRecType; 


BEGIN 

WriteLine("  producing  record  Refuel  Area  type  "  + 
Headstring) ; 

OUTPUT ("  producing  record  Refuel  Area  type  "  +  Headstring); 
FindSHRec (Headstring,  SHRec); 

WriteLine("  "); 

IF  SHRec  =  NILREC 

OUTPUT ("No  record  Found  of  "  +  Headstring); 
writeLine("No  record  Found  of  "  +  Headstring); 

HALT; 

END  IF; 

OUTPUT ("  got  SHRec"); 

NEW  (Rec)  ; 

Rec . AreaTypeName  :=  SHRec. Topstring ; 

OUTPUT ( "AreaTypeName  is  "  +  Rec .AreaTypeName) ; 
writeLine ( "AreaTypeName  is  "  +  Rec .AreaTypeName) ; 
index  : =  1; 

Re c.NumOf Spots  :=  STRTOINT ( SHRec. OwnedString[ index] ) ; 
WriteLine ( "Nxamber  Of  Spots  is  "  +  INTTOSTR (Rec. NumOf Spot s) )  ; 
INC ( index) ; 

Rec . DistAreaToShip  : =  STRTOREAL ( SHRec . OwnedS tr ing [ index] ) ; 
WriteLine ( "DistAreaToShip  is  "  + 

REALTOSTR (Rec. DistAreaToShip) ) ; 


INC (index) ; 


NEW ( Rec . SpotArray,  l. . Rec.NumOf Spots) ; 
output (" index  =  ■  +  INTTOSTR (index) ) ; 

IF  (Rec .NumOf Spots  >  0) 
i  :=  1; 

WHILE  i  <=  Rec. NumOf Spots 
NEW (Spot) ; 

Char  :=  SCHAR(SHRec.OwnedString {index] ,  I); 

CASE  Char 

WHEN  ' T ' , *  t  *  :  Spot . Ref uelSpotFree  :  =  TRUE; 

WHEN  '  F '  , ' f '  :  Spot .Ref uelSpotFree  :=  FALSE; 

END  CASE; 

WriteLine("Spot  "+  INTTOSTR ( i )  +  "  is  Free  (T/F)  "  + 
BooleanToStr (Spot . Ref uelSpotFree) ) ; 

OUTPUT ( " Spot  "+  INTTOSTR ( i)  +  "  is  Free  (T/F)  "  + 

Char) ; 

Rec . SpotArray { i ]  : =  Spot ; 

i  :  =  i  +  1  ; 

index  : =  index  +  1 ; 

END  WHILE; 

END  IF, 

index  :=  index; 

Rec . FuelPumpRate  : =  STRTOREAL ( SHRec . OwnedString [ index] ) ; 
writeLine ( "FuelPumpRate  is  "  +  REALTOSTR (Rec . FuelPumpRate) ) ; 
INC (index) ; 

OUTPUT( "finished  reading  RefuelArea  type  information"); 
RETURN (Rec) ; 

END  METHOD; 

END  OBJECT; 
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OBJECT  RefuelTypeListObj ; 

{ 

ASK  METHOD  ReadRef uelArea ( IN  RefuelAreaType  :  STRING); 

{ 

VAR 

Rec  :  RefuelTypeRecType; 

BEGIN 

IF  RefuelTypelOHandler  =  NILOBJ 
NEW(RefuelTypelOHandler) ; 

ASK  RefuelTypelOHandler  TO  ReadRecs ("RFAType.dat") ; 
END  IF; 

OUTPUT ( "Beach  handler  instanciated  and  full  of  raw 
records " ) ; 

OUTPUT ( "about  to  produce  type  record  for  "  + 
RefuelAreaType) ; 

Rec  :=  ASK  RefuelTypelOHandler  TO 
ProduceRec (RefuelAreaType) ; 

OUTPUT ("  got  the  record  complete  ") ; 

IF  Rec  <>  NILREC 
Add (Rec) ; 

ELSE 

OUTPUT ("  never  found  record!"); 

END  IF; 

END  METHOD; 

END  OBJECT; 


END  MODULE. 


DEFINITION  MODULE  Builder; 


{ 

Module  Name:  Builder  Last  Modified:  26  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 


DESCRIPTION:  Defines  the  Object.BuilderObj  as  well  as  the 
four  other  Queue  Objects  required  to  build  and  store  the 
RoRo,  Lighter,  Beach,  and  FuelArea  objects  required  for  the 
users  scenario. 


FROM  GrpMod 

IMPORT 

QueueObj ; 

FROM  Ship 

IMPORT 

RoRoObj ; 

FROM  Lighter 

IMPORT 

LighterObj ; 

FROM  Beach 

IMPORT 

BeachObj ; 

FROM  Refuel 

IMPORT 

Ref uelAreaObj ; 

} 


TYPE 

ObjectBuilderObj  =  OBJECT 
ASK  METHOD  BuildObj ect S ; 

END  OBJECT; 

ShipBuilderObj  =  OBJECT (QueueObj [ANYOBJ  :  RoRoObj]) 

ASK  METHOD  BuildShipS; 

END  OBJECT; 

LighterBuilderObj  =  OBJECT (QueueObj [ANYOBJ  :  LighterObj]) 
ASK  METHOD  BuildLighters ; 

END  OBJECT; 

BeachBuilderObj  =  OB JECT ( QueueObj [ANYOBJ  :  BeachObj]) 

ASK  METHOD  BuildBeaches ; 


127 


END  OBJECT; 


FuelAreaBuilderObj  =  OBJECT ( QueueObj [ANYOBJ  : 
Ref uelAreaOb j ] ) 

ASK  METHOD  BuildFuelAreas ; 

END  OBJECT; 

VAR 

ObjectBuilder  :  ObjectBuilderObj; 
ShipBuilder  :  ShipBuilderObj ; 
LighterBuilder  :  LighterBuilderObj ; 
BeachBuilder  :  BeachBuilderOb j ; 
FuelAreaBuilder  :  FuelAreaBuilderObj ; 

END  MODULE. 

IMPLEMENTATION  MODULE  Builder; 


{ 


Module  Name:  Builder  Last  Modified:  26  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 


DESCRIPTION:  Implements  the  ObjectBuilderObj  as  well  as  the 

four  other  Queue  Objects  required  to  build  and  store  the 
RoRo, , Lighter,  Beach,  and  FuelArea  objects  required  for  the 
users  scenario. 


FROM 

Ship 

IMPORT 

FROM 

Lighter 

IMPORT 

FROM 

Beach 

IMPORT 

FROM 

Refuel 

IMPORT 

FROM 

ShpList 

IMPORT 

FROM 

LtList 

IMPORT 

FROM 

BchList 

IMPORT 

} 

RoRoOb j ; 

LighterOb j ; 

BeachOb j ; 

RefuelAreaObj ; 

MasterShipTypeList,  ShipTypeRecType; 
MasterLighterTypeList , 
LighterTypeRecType ; 

MasterBeachTypeList,  BeachTypeRecType ; 
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FROM  RFAList  IMPORT  MasterRef uelTypeList 


FROM 

ShpName 

IMPORT 

FROM 

LtName 

IMPORT 

FROM 

BchName 

IMPORT 

FROM 

RFAName 

IMPORT 

FROM 

ShpName 

IMPORT 

FROM 

LtName 

IMPORT 

FROM 

BchName 

IMPORT 

FROM 

RFAName 

IMPORT 

FROM 

WriteLine 

IMPORT 

FROM 

SLCP 

IMPORT 

FROM 

Convert 

IMPORT 

FROM 

RepMngr 

IMPORT 

Ref uelTypeRecType ; 
MasterShipNameList; 
MasterLighterNameList 
Ma  s  t  er  Be  a  chNameL  i  s  t  ; 
MasterRefuelNameList; 
ShipNameRecType ; 
LighterNameRecType ; 
BeachNameRecType ; 

Ref uelNameRecType ; 
WriteLine; 

Wait  ForShipQueue ; 
Light erNameTypeToS t r ; 
RepManager; 


OBJECT  ObjectBuilderObj ; 


{ . 

ASK  METHOD  BuildObj ectS ; 

{ 

BEGIN 


NEW(ShipBuilder) ; 

ASK  ShipBuilder  TO  BuildShips; 

NEW(LighterBuilder) ; 

ASK  LighterBuilder  TO  BuildLighters; 

NEW(BeachBuilder) ; 

ASK  BeachBuilder  TO  BuildBeaches; 


NEW(FuelAreaBuilder)  ; 

ASK  FuelAreaBuilder  TO  BuildFuelAreas; 


END  METHOD ; 


END  OBJECT; 


OBJECT  ShipBuilderObj ; 

{  } 

ASK  METHOD  BuildShips; 

{  } 


VAR 

Rec  :  ShipTypeRecType; 
RORO  :  RoRoOb j ; 

BEGIN 


NEW (Rec) ; 

NEW (RoRo) ; 

Rec  : =  ASK  MasterShipTypeList  First ( ) ; 

{ 

WriteLine ( "Building  ship  "  +  Rec.ShipTypeName); 

WriteLineC  "); 

} 

WHILE  Rec  <>  NILREC 

ASK  RoRo  TO  GetShipSetup (Rec.ShipTypeName,  Rec.TypeShip, 

Rec . DistanceFromBLCP, 

Rec. NumOf Spots,  Rec.SpotArray, 
Rec . NumOf LoLoVehicles, 

Rec . NumOf RRDFVehicles , 

Rec . NumOf Any Spot vehicles) ; 

Add (RoRo) ; 
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NEW (RoRo)  ; 

Rec  :=  ASK  MasterShipTypeList  Next (Rec); 
END  WHILE; 

END  METHOD; 


END  OBJECT; 


OBJECT  LighterBuilderObj ; 

{  } 

ASK  METHOD  BuildLighters ; 

{  } 


VAR 

Rec  :  LighterTypeRecType; 

Lighter  :  LighterOb j ; 

BEGIN 

{ 

WriteLine ( "Building  Lighter  "); 

WriteLine ( "  " ) ; 

} 

NEW (Rec) ; 

NEW(WaitForShipQueue) ; 

NEW (Lighter) ; 

Rec  :=  ASK  MasterLighterTypeList  First (); 

WHILE  Rec  <>  NILREC 

ASK  Lighter  TO  GetLighterSetup (Rec . ID, 

Rec . LighterTypeName , 
Rec.SpotRequired,  Rec.SpeedMax, 
Rec.SpeedFull,  Rec.MaxLoad, 
Rec.FuelCap,  Rec.BurnRate, 

Rec .MinFuel) ; 
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Add (Lighter)  ; 

ASK  WaitForShipQueue  TO  Add (Lighter) ; 


{ 

WriteLine { "Number  in  ship  Q  is  "  + 

INTTOSTR (ASK  WaitForShipQueue  numberln)  +  " 
Lighter  Name=  "  + 

LighterNameTypeToStr (ASK  Lighter 
Light erTypeName ) 

+  "  LighterlD  =  "  +  ASK  Lighter  LighterlD) ; 

} 

new  (Lighter)  ; 

Rec  :=  ASK  MasterLighterTypeList  Next (Rec); 

END  WHILE; 


END  METHOD; 
END  OBJECT; 


OBJECT  BeachBuilderObj ; 

{ 

ASK  METHOD  BuildBeaches; 

{  > 


VAR 

Rec  :  BeachTypeRecType; 

Beach  :  BeachOb j ; 

BEGIN 

{ 

WriteLine ( "Building  Beach  "); 
WriteLine ( "  "); 

} 
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NEW (Rec) ; 

NEW (Beach)  ; 

Rec  :=  ASK  MasterBeachTypeList  First (); 

WHILE  Rec  <>  NILREC 

ASK  Beach  TO  GetBeachSetup (Rec . ID,  Rec. BeachTypeName, 

Rec .NumOf Spots,  Rec. Spot Array, 
Rec . DistanceFromSLCP, 

Rec . DistBeachToArea) ; 

Add (Beach) ; 


new (Beach) ; 

Rec  :*  ASK  MasterBeachTypeList  Next (Rec); 
END  WHILE; 

END  METHOD; 


END  OBJECT ; 


OBJECT  FuelAreaBuilderObj ; 

{  } 

ASK  METHOD  BuildFuelAreas ; 

{ 


VAR 

Rec  :  RefuelTypeRecType; 

RefuelArea  :  RefuelAreaObj ; 

BEGIN 

{ 

WriteLine ( "Building  RefuelArea  "); 
WriteLine("  "); 

} 
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NEW (Rec) ; 

NEW (RefuelArea)  ; 

Rec  : =  ASK  MasterRefuelTypeList  First ( ) ; 

WHILE  Rec  <>  NILREC 

ASK  RefuelArea  TO  GetRefuelAreaSetup(Rec.AreaTypeName, 

Rec .NumOf Spots, 

Rec . DistAreaToShip, 

Rec .  Spo tAr r ay ,  Rec .  Fuel  PuxnpRa t e )  ; 
Add (RefuelArea) ; 


NEW (Re fuel Area) ; 

Rec  :=  ASK  MasterRefuelTypeList  Next (Rec); 
END  WHILE; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  RepMngr; 

{ 

Module  Name:  RepMngr 
Author:  M.  Bailey 
Prof .  NPG 


Last  Modified:  26  Jul  93 
Modified  By:  J.  S.  Noel 
Lt .  USN 


DESCRIPTION:  Defines  the  replication  manager  (  RepMngrObj) 
for  initialization  and  operation  of  the  simulation. 


} 


TYPE 

RepMngrObj  =  OBJECT 

MaxNumberOfReps  :  INTEGER; 
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Iteration 

Done 

OutputToScreen 

SeedAlfa 

SeedBravo 


INTEGER 

BOOLEAN 

BOOLEAN 

INTEGER 

INTEGER 


ASK  METHOD 
ASK  METHOD 
ASK  METHOD 
ASK  METHOD 
ASK  METHOD 


Obj Init; 
ChangeRunParms ; 
PrepForRep; 
Replicate; 

Reset ForNextRun ; 


END  OBJECT; 


VAR 


RepManager  :  RepMngrOb j ; 
END  MODULE. 


IMPLEMENTATION  MODULE  RepMngr; 

{ 

Module  Name:  RepMngr 
Author:  M.  Bailey 

Prof .  NPG 


Last  Modified:  26  Jul  93 
Modified  By:  J.  S.  Noel 
Lt .  USN 


DESCRIPTION:  Implements  the  replication  manager 

(  RepMngrObj)  for  initialization  and  operation  of  the 
simulation. 


FROM  WriteLine  IMPORT  WriteLine; 


FROM  SimMod 
FROM  CRTMod 
FROM  IOMod 
FROM  Ship 
FROM  SLCP 
FROM  BLCP 


IMPORT  StartSimulation, 
IMPORT  ClearScreen; 
IMPORT  ReadKey; 

IMPORT  RoRoOb j ; 

IMPORT  SLCP; 

IMPORT  BLCP; 


} 


ResetSimTime; 
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PROM  FuelCP  IMPORT  FuelCP; 

FROM  Builder  IMPORT  ShipBuilder; 

FROM  Stats  IMPORT  Stats; 

FROM  Global  IMPORT  RandTimel , RandTime2 ; 

OBJECT  RepMngrOb j ; 

{  } 

ASK  METHOD  Objlnit; 

{  } 


BEGIN 

MaxNumberOfReps  :=  1; 
Iteration  :=  0; 

Done  :=  FALSE; 
OutputToScreen  : =  FALSE; 
SeedAlfa  :=  123456; 
SeedBravo  :=  678912; 


END  METHOD; 


{  1 

ASK  METHOD  ChangeRunParms ; 

(  } 

VAR 

Ch  :  CHAR; 

Seedl  :  INTEGER; 

Seed2  :  INTEGER; 

BEGIN 

ClearScreen; 

OUTPUT; OUTPUT; 

OUTPUT ("?????????????????????????????????????????????????") ; 
OUTPUT; OUTPUT; 
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output ("The  number  of  replications  desired  is 
OUTPUT; OUTPUT; 

OUTPUT ("?????????????????????????????????????????????????") 
OUTPUT; OUTPUT ; 

INPUT (MaxNumberOf Reps) ; 


ClearScreen; 

OUTPUT; OUTPUT; 

OUTPUT ("?????????????????????????????????????????????????") 
OUTPUT; OUTPUT; 

OUTPUT ( " Do  you  want  output  displayed  on  the  screen?"); 
OUTPUT ; OUTPUT ; 

OUTPUT ("??????????????????????????????????????? ??????????") 
OUTPUT; OUTPUT; 

Ch  : =  ReadKey ( ) ; 

IF  (Ch  =  ' y ' )  OR  (Ch  =  'Y')  OR  (Ch  =  ’t’)  OR  (Ch  =  'T') 
OutputToScreen  :=  TRUE; 

END  IF; 


ClearScreen; 

OUTPUT ; OUTPUT ; 

OUTPUT ("?????????????????????????????????????????????????") 
OUTPUT ; OUTPUT ; 

OUTPUT ("Do  you  want  to  input  seeds?"); 

OUTPUT; OUTPUT; 

OUTPUT ("??????????????????? ??????????????????????????????") 


OUTPUT; OUTPUT; 

Ch  : =  ReadKey ( ) ; 

IF  (Ch  =  'y')  OR  (Ch  =  'Y')  OR 
OUTPUT ( "input  seed  number  l. 
INPUT (SeedAl fa) ; 

OUTPUT ( "input  seed  number  2. 
INPUT (SeedBravo) ; 


(Ch  = 
MUST 

MUST 


t ’ )  OR  (Ch 
BE  INTEGER 

BE  INTEGER 


=  'T'  ) 
") ; 

")  ; 


END  IF; 

NEW(RandTimel) ; 
NEW ( RandTime2 ) ; 
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ASK  RandTimel  TO  SetSeed(SeedAlfa) ; 
ASK  RandTime2  TO  SetSeed(SeedBravo) ; 

END  METHOD; 


{  } 

ASK  METHOD  Replicate; 

{  } 

VAR 

RoRo  :  RoRoOb j ; 

BEGIN 

FOR  Iteration  :=  l  TO  MaxNumberOfReps 
ResetSimTime (0.0); 

WriteLine(" _ replication  "  +  inttostr( Iteration)  + 

" _ " ) ; 

ASK  SELF  TO  PrepForRep; 

ASK  SELF  TO  ResetForNextRun; 

IF  (Iteration  =  MaxNumberOfReps) 

Done  : =  TRUE; 

writeLine ( "//RepManager//  Done  =  TRUE"); 

END  IF; 

OUTPUT ( "Simulation  clock  started."); 

WriteLine (" _ CLOCK  STARTS  FOR  REP  "  + 

INTTOSTR( Iteration)  +  " _ "); 

StartSimulation; 


WriteLine  (" _ CLOCK  STOPS  FOR  REP  "  + 

INTTOSTR( Iteration)  +  " _ "); 

END  FOR; 

END  METHOD; 
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{ 

ASK  METHOD  PrepForRep; 

{ 


} 

} 


BEGIN 

IF  (  Iteration  =  l  ) 
NEW (SLOP) ; 
NEW(BLCP)  ; 
NEW(FuelCP)  ; 

NEW (Stats)  ; 

END  IF; 


END  METHOD; 

{  } 

ASK  METHOD  Reset ForNextRun; 

{  } 

VAR 

RORO  :  RoRoOb j ; 

BEGIN 

writeLine(" - Reset  For  Next  Run - ")  ; 


IF  (  NOT  Done  ) 

RoRo  : =  ASK  ShipBuilder  First ( ) ; 
WHILE  RoRo  <>  NILOBJ 

ASK  RoRo  TO  StartTheShow; 

RoRo  :=  ASK  ShipBuilder  Next (RoRo) ; 
END  WHILE; 

END  IF; 
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END  METHOD; 


END  OBJECT; 
END  MODULE. 


DEFINITION  MODULE  Global; 

{ 


Module  Name:  Global  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 


DESCRIPTION:  Defines  Global  types  used  in  the  simulation. 


FROM  RandMod  IMPORT  RandomOb j ; 


} 


TYPE 

SpotType  =  (LCU,  CWF,  LoLo) ; 

SpotRecType  =  RECORD 

SpotClassification  :  SpotType; 

Spot Free  :  BOOLEAN; 

Total IdleTime  :  REAL; 

END  RECORD; 

RefuelSpotRecType  =  RECORD 

RefuelSpotFree  :  BOOLEAN; 

END  RECORD; 

SpotldleTimeRecType  =  RECORD 
StartTime  :  REAL; 

EndTime  :  REAL; 

END  RECORD; 
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NameRecType  =  RECORD 
Name  :  STRING; 

END  RECORD; 

SpotldleTimeArrayType  =  ARRAY  INTEGER  OF 

SpotldleTimeRecType; 


FileNameType  =  STRING; 

DestinationType  =  (Ship,  Bch,  Fuel,  RefuelFromBeach, 

ShipFromRefuel) ; 

SeedArrayType  =  ARRAY  INTEGER  OF  INTEGER; 


VAR 

RandTimel  :  RandomObj ; 
RandTime2  :  RandomObj ; 

END  MODULE. 


IMPLEMENTATION  MODULE  Global; 

{ 


Module  Name:  Global  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  Global  types  used  in  the  simulation. 

} 

{  The  functioning  components  of  Global  ar  in  the  Definition 
Module . } 


END  MODULE. 


DEFINITION  MODULE  Ship; 

{ 

Module  Name:  Ship  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  a  RoRo  (Ship)  object. 

} 

FROM  ShpList  IMPORT  Spot ArrayType ; 

FROM  Global  IMPORT  SpotldleTimeArrayType,  SpotType; 

FROM  Lighter  IMPORT  LighterObj ; 

TYPE 

ShipTypeType  =  (SSR,  NSSR) ; 

RORoOb j  =  OBJECT 

ShipName 
ShipType 

DistanceFromBLCP 
NumSpots 
ShipSpot 
NumLoLoVehic 1 e s 
NumRRDFVehicles 
NumAnySpotVehicles 
PermNumLoLo 
PermNumRRDF 
PermNumAnySpot 

Loads ize 

ShipSpot idleTime 
Last Load 

ASK  METHOD  Objlnit; 

ASK  METHOD  StartTheShow; 

ASK  METHOD  GetShipSetup { IN  Name  :  STRING; 

IN  Type  :  ShipTypeType; 

IN  Numl  :  REAL; 


STRING; 

ShipTypeType ; 

REAL; 

INTEGER; 

SpotArr ayType ; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

INTEGER; 

SpotldleTimeArrayType; 

BOOLEAN; 
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IN  Num2  :  INTEGER; 

IN  Array  :  SpotArrayType; 
IN  Num3  :  INTEGER; 

IN  Num4  :  INTEGER; 

IN  Num5  :  INTEGER) ; 


ASK  METHOD 

ASK  METHOD 

ASK  METHOD 
ASK  METHOD 

ASK  METHOD 
ASK  METHOD 


LogldleShipSpotTime (IN  index  :  INTEGER; 

IN  InOutSpotTime  :  REAL; 
IN  Spot I die  :  BOOLEAN) ; 
MakeLoad(IN  Lighter  :  LighterObj ; 

IN  index  :  INTEGER) ; 

SetSpotFree (IN  index  :  INTEGER); 

CheckSpotS (IN  SpOtTyp  :  SpotType; 

OUT  Spot Avail  :  BOOLEAN; 

OUT  index  :  INTEGER) ; 

OccupySpot (IN  index  :  INTEGER); 

ResetShipStat s ; 


END  OBJECT; 

VAR 

RoRo  :  RoRoObj ; 


END  MODULE. 


IMPLEMENTATION  MODULE  Ship; 

{ 

Module  Name:  Ship  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  a  RoRo  (Ship)  object. 

} 

FROM  ShpList  IMPORT  SpotArrayType; 

FROM  Global  IMPORT  ALL  SpotType,  SpotRecType, 

ALL  SpotldleTimeRecType; 

IMPORT  SimTime; 


FROM  SimMod 


FROM  SLOP  IMPORT  SLOP; 

FROM  Lighter  IMPORT  LighterObj; 

FROM  writeLine  import  WriteLine; 

FROM  Convert  IMPORT  BooleanToStr,  SpotTypeToStr; 

OBJECT  RoRoObj ; 

{ 

ASK  METHOD  Objlnit; 

{ 

BEGIN 

LastLoad  :  =  FALSE; 

END  METHOD; 


{ . . 

ASK  METHOD  StartTheShow; 

{ . 


VAR 

i  :  INTEGER; 

BEGIN 

FOR  i  :=  1  TO  HIGH ( ShipSpot ) 

{ 


} 


WriteLine ( "Spot Free  for  spot  "  +  I NTTOSTR ( i )  +  "  is  "  + 
BooleanToStr (ShipSpot [i] .SpotFree) ) ; 


ASK  SLCP  TO  GetLighter (ShipSpot l i] . SpotClassif ication,  i 
SELF) ; 

END  FOR; 


END  METHOD; 


} 


{ 

ASK  METHOD  GetShipSetup ( IN  Name  :  STRING; 

IN  Type  :  ShipTypeType ; 

IN  Numl  :  REAL; 

IN  Num2  :  INTEGER; 

IN  Array  :  SpotArr ayType ; 

IN  Nurn3  :  INTEGER; 

IN  Num4  :  INTEGER; 

IN  NUIT15  :  INTEGER)  ; 

{  } 

VAR 

i  :  INTEGER; 

Rec  :  SpotldleTimeRecType; 

BEGIN 

ShipName  : =  Name ; 

{ 

WriteLine ( "//GetShipSetup//  ShipName  =  "  +  ShipName); 

} 

ShipType  : =  Type ; 

DistanceFromBLCP  :•  Numl; 

NumSpots  :=  Num2; 

NEW ( ShipSpot ,  1 . .NumSpots) ; 

ShipSpot  :=  Array; 

{ 

WriteLine (ShipName  +  "  Spot  "  +  INTTOSTR(i)  +  "  SpotType  "  + 
SpotTypeToStr (ShipSpot [l] . SpotClassif ication) ) ; 

} 


NumLoLoVehicles  : = 
NumRRDFVehicles  :  = 
NumAnySpotVehicles 


Num3 ; 
Num4; 

:=  Num5; 
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NEW(ShipSpotIdleTime,  l. .NumSpots) ; 

FOR  i  :=  1  TO  NumSpots 

ShipSpot £ i ] .TotalldleTime  :=  0.0; 

NEW(Rec) ; 

Rec . StartTime  : =  0.0; 

Rec.EndTime  :=  0.0; 

ShipSpot Idl eTime [i]  :=  Rec; 

END  FOR; 

PermNumLoLo  :=  NumLoLoVehicles; 
PermNumRRDF  :=  NumRRDFVehicles; 
PermNumAnySpot  :=  NumAnySpot Vehicles; 


END  METHOD; 


ASK  METHOD  LogldleShipSpotTime ( IN  index  :  INTEGER; 

IN  InOutSpotTime  :  REAL; 
IN  Spotldle  :  BOOLEAN) ; 


BEGIN 

{ 

WriteLine ( "LogldleSpotTime  fired  on  "  +  ShipName) ; 

} 

IF  Spotldle 

ShipSpot Idl eTime [index] . StartTime  :=  InOutSpotTime; 

{ 

WriteLine ( "Spot  "  +  INTTOSTR( index)  +  "  Idle  at  "  + 
REALTOSTR{ InOutSpotTime) ) ; 

WriteLine {"  "); 

} 
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ELSE 

ShipSpotldleTime [index] . EndTime  :=  InOutSpotTime; 

{ 

WriteLine ( "Spot  "  +  INTTOSTR ( index)  +  "  Occupied  at  "  + 

REALTOSTR(InOutSpotTirr^)  )  ; 

WriteLine ("  "); 

} 


ShipSpot [index] . Total idleTime  : = 

ShipSpot [index] . TotalldleTime  + 
(ShipSpotldleTime [index] .EndTime  - 
ShipSpotldleTime [index] .StartTime) ; 


END  IF; 

END  METHOD; 


} 


} 

VAR 

LoadSize  :  INTEGER; 

BEGIN 

{ 

WriteLine ( "MakeLoad  fired  for  spot  "  +  INTTOSTR ( index)  + 

"  on  "  +  ShipName  ) ; 

} 

ASK  SELF  TO  OccupySpot ( index) ; 

LoadSize  :=  ASK  Lighter  MyLoadSize; 

IF  (  ShipSpot [index] .SpotClassif icat ion  =  LoLo  ) 

IF  (  NumLoLoVehicles  >  0  ) 


{ . 

ASK  METHOD  MakeLoad (IN  Lighter  :  LighterObj ; 

IN  index  :  INTEGER) ; 

{ 
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IF  (  NumLoLoVehicles  <  LoadSize  ) 

LoadSize  :=  LoadSize  -  NumLoLoVehicles; 
NumLoLoVehicles  :  =  0; 

IF  (  NumAnySpotVehicles  >  0  ) 

IF  (  NumAnySpotVehicles  <  LoadSize  ) 
NumAnySpotVehicles  :=  0; 

Last Load  :  =  TRUE; 

ASK  SLOP  TO  SetShipStatus; 

ASK  Lighter  TO  SetLoadStatus (LastLoad,  SELF); 
ELSE  {  NumAnySpotVehicles  >  LoadSize  } 

NumAnySpotVehicles  : =  NumAnySpotVehicles  - 

LoadSize; 

END  IF; 

ELSE  {  NumAnySpotVehicles  =  0  } 

LastLoad  :=  TRUE; 

ASK  SLOP  TO  SetShipStatus; 

ask  Lighter  TO  SetLoadStatus (LastLoad,  SELF); 

END  IF; 

ELSE  {  NumLoLoVehicles  >  LoadSize  } 

NumLoLoVehicles  :=  NumLoLoVehicles  -  LoadSize; 

END  IF; 

ELSE  {  NumLoLoVehicles  =  0  } 

IF  (  NumAnySpotVehicles  >  0  ) 

IF  (  NumAnySpotVehicles  <  LoadSize  ) 
NumAnySpotVehicles  :=  0; 

LastLoad  :=  TRUE; 

ASK  SLOP  TO  SetShipStatus; 

ASK  Lighter  TO  SetLoadStatus (LastLoad,  SELF) ; 
ELSE  {  NumAnySpotVehicles  >  LoadSize  } 

NumAnySpotVehicles  :=  NumAnySpotVehicles  - 

LoadSize; 

END  IF; 

ELSE  {  NumAnySpotVehicles  =  0  } 
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Last Load  :=  TRUE; 

ASK  SLCP  TO  SetShipStatus; 

ASK  Lighter  TO  SetLoadStatus (LastLoad,  SELF); 

END  IF; 

END  IF; 

ELSE  {  ShipSpot [index] . SpotClassif ication  ■  LCU  or  CWF  } 

IF  (  NumRRDFVehicles  >  0  ) 

IF  (  NumRRDFVehicles  <  LoadSize  ) 

LoadSize  :=  LoadSize  -  NumRRDFVehicles; 
NumRRDFVehicles  :=  0; 

IF  (  NumAnySpotVehicles  >  0  ) 

IF  (  NumAnySpotVehicles  <  LoadSize  ) 
NumAnySpotVehicles  :=  0; 

LastLoad  :=  TRUE; 

ASK  SLCP  TO  SetShipStatus; 

ASK  Lighter  TO  SetLoadStatus (LastLoad,  SELF); 
ELSE  {  NumAnySpotVehicles  >  LoadSize  } 

NumAnySpotVehicles  : =  NumAnySpotVehicles  - 

LoadSize; 

END  IF; 

ELSE  {  NumAnySpotVehicles  =  0  } 

LastLoad  :  =  TRUE; 

ASK  SLCP  TO  SetShipStatus; 

ASK  Lighter  TO  SetLoadStatus (LastLoad,  SELF) ; 

END  IF; 

ELSE 

NumRRDFVehicles  :=  NumRRDFVehicles  -  LoadSize; 

END  IF; 

ELSE  {  NumRRDFVehicles  =  0  } 

IF  (  NumAnySpotVehicles  >  0  ) 

IF  (  NumAnySpotVehicles  <  LoadSize  ) 
NumAnySpotVehicles  :=  0; 
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Last Load  :  =  TRUE; 

ASK  SLOP  TO  SetShipStatus; 

ASK  Lighter  TO  SetLoadStatus (LastLoad,  SELF); 
ELSE  {  NumAnySpotVehicles  >  LoadSize  } 

NumAnySpotVehicles  : =  NumAnySpotVehicles  - 

LoadSize; 

END  IF; 

ELSE  {  NumAnySpotVehicles  =  0  } 

LastLoad  :=  TRUE; 

ASK  SLOP  TO  SetShipStatus; 

ASK  Lighter  TO  SetLoadStatus (LastLoad,  self); 

END  IF; 

END  IF; 

END  IF; 

{ 

WriteLine ( "NumLoLoVehicles  =  "  +  INTTOSTR (NumLoLoVehicles) ) 
WriteLine ( "NumRRDFVehicles  =  "  +  INTTOSTR (NumRRDFVehi cl es) ) 
WriteLine ( "NumAnySpotVehicles  =  "  + 

INTTOSTR (NumAnySpotVehicles) ) ; 

} 

TELL  Lighter  TO  OnLoad(SELF) ; 

END  METHOD; 


ASK  METHOD  SetSpotFree ( IN  index  :  INTEGER); 


VAR 

Idle  :  BOOLEAN; 

BEGIN 

{ 

WriteLine ( "SetSpotFree  fired  for  spot  "  +  INTTOSTR ( index)  + 
"  on  "  +  ShipName  ) ; 


IF  {  NOT  LastLoad  ) 

ShipSpot [index] .SpotFree  :=  TRUE; 

Idle  :=  ShipSpot [index] . SpotFree; 

ASK  SLOP  TOGetLighter (ShipSpot [index] . SpotClassif icat ion, 

index,  SELF) ; 

END  IF; 

ASK  SELF  TO  LogldleShipSpotTime ( index,  SimTimeO,  Idle); 


END  METHOD; 

{  } 

ASK  METHOD  CheckSpOtS ( IN  SpotTyp  :  SpotType; 

OUT  SpotAvail  :  BOOLEAN; 

OUT  index  :  INTEGER) ; 

{  } 

VAR 

i  :  INTEGER; 


BEGIN 

{ 

WriteLine ( "CheckSpots  Fired  on  "  +  ShipName) ; 

} 

SpotAvail  :=  FALSE; 

FOR  i  :=  1  TO  HIGH (ShipSpot) 

IF  (ShipSpot [i] .SpotClassif ication  =  SpotTyp)  AND 
(ShipSpot [i] .SpotFree) 

SpotAvail  :=  TRUE; 
index  : =  i ; 

ShipSpot [i] .SpotFree  :=  FALSE; 

EXIT; 

END  IF; 

END  FOR; 
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END  METHOD ; 


{ 

ASK  METHOD  OccupySpot ( IN  index  :  INTEGER); 

{ 

VAR 

Idle  :  BOOLEAN; 

BEGIN 

{ 

WriteLine ( "Occupy  spot  fired  in  RoRo  "  +  ShipName) ; 

} 


ShipSpot [index] .SpotFree  :=  FALSE; 

Idle  :=  ShipSpot [index] .Spot Free; 

ask  self  TO  LogldleShipSpotTime { index,  SimTimeO,  idle); 
END  METHOD; 

{ 

ASK  METHOD  ResetShipStat S ; 

{ 

VAR 

i  :  INTEGER; 

BEGIN 

{ 

WriteLine ( "ResetShipStats  fired  on  "  +  ShipName) ; 

} 

FOR  i  :=  1  TO  HIGH (ShipSpot) 

ShipSpot [i] .SpotFree  :=  TRUE; 


ShipSpot [i] .TotalldleTime  :=  0.0; 
ShipSpotldleTime [i] .StartTime  :=  0.0; 
ShipSpot I dl eTime [ i ] . EndTime  : =  0.0; 
END  FOR; 

NumLoLoVehicles  :=  PermNumLoLo; 
NumRRDFVehicles  : =  PermNumRRDF ; 
NumAnySpotVehicles  :=  PermNumAnySpot ; 

LastLoad  :=  FALSE; 

END  METHOD; 


END  OBJECT ; 
END  MODULE. 


DEFINITION  MODULE  SLCP; 

{ 

Module  Name:  SLCP  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  the  Ships  Lighterage  Control  Point 
Object  (SLCPObj) .  After  a  Lighter  CastsandClears  the  ship 
it  asks  the  RoRoObj  to  SetSpotFree.  This  method  fires  the 
GetLighter  method  in  SLCPObj .  SLCPObj  then  pops  the  first 
appropriate  lighter  off  of  theAwaitingShipQueue  and  directs 
the  lighter  to  ApproachAndMoor  to  the  RRDF,  where  the 
onload  of  vehicles  can  begin. 


FROM  GrpMcd  IMPORT  QueueObj ; 
FROM  Global  IMPORT  SpotType; 
FROM  Lighter  IMPORT  LighterObj ; 
FROM  Ship  IMPORT  RoRoObj; 

TYPE 
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ShipDoneRecType  =  RECORD 
ShipDone  :  BOOLEAN; 
END  RECORD; 


ShipDoneArrayType  =  ARRAY  INTEGER  OF  ShipDoneRecType; 

Await ingShipQueueObj  =  OBJECT ( QueueObj [ANYOBJ:  LighterObj]) 
END  OBJECT; 


SLCPObj  =  OBJECT 


NumLighter 

NumShip 

ShipStatuslndex 

ShipsDone 

AllDone 


INTEGER; 

INTEGER; 

INTEGER; 

ShipDoneArrayType ; 
BOOLEAN; 


ASK  METHOD  Objlnit; 

ASK  method  SetShipStatus; 

ASK  METHOD  GetSpot(IN  Lighter  :  LighterObj); 
ASK  METHOD  GetLighter ( IN  Spot  :  SpotType; 

IN  index  :  INTEGER; 

IN  RORO  :  RoRoOb j ) ; 

ASK  METHOD  ResetSLCP; 


END  OBJECT; 


VAR 

WaitForShipQueue  :  Awai t ingShipQueueObj ; 
SLCP  :  SLCPObj; 

END  MODULE. 
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IMPLEMENTATION  MODULE  SLOP; 


{ 

Module  Name:  SLOP  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  a  Ship  Lighter  Control  Point  (SLCP) 


object . 

} 

PROM  Global  IMPORT  ALL  SpOtType,  ALL  Dest inationType; 

FROM  Lighter  IMPORT  LighterObj ; 

FROM  Ship  IMPORT  RoRoOb  j  ; 

FROM  SimMod  IMPORT  SimTime; 

FROM  Builder  IMPORT  ShipBuilder; 

FROM  WriteLine  IMPORT  WriteLine; 

FROM  Convert  IMPORT  LighterNameTypeToStr; 

FROM  stats  IMPORT  Stats; 

FROM  Builder  IMPORT  ShipBuilder,  LighterBuilder; 

FROM  blcp  import  waitForBeachQueue; 

OBJECT  SLCPObj ; 

{  } 

ASK  METHOD  Objlnit; 

{  } 

VAR 


i  :  INTEGER; 

Rec  :  ShipDoneRecType; 

BEGIN 

All Done  :=  FALSE; 

ShipStatuslndex  :=  1; 

NumLighter  :=  ASK  LighterBuilder  numberln; 
NumShip  :=  ASK  ShipBuilder  numberln; 
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NEW(Rec) ; 

NEW { ShipsDone ,  1 . . NumShip ) ; 
FOR  i  :=  1  TO  HIGH (ShipsDone) 
NEW(Rec) ; 

Rec . ShipDone  : =  FALSE ; 
ShipsDone [i]  :=  Rec; 

END  FOR; 

END  METHOD; 


{ 

ASK  METHOD  SetShipStatus; 

VAR 

i  :  INTEGER; 

RORO  :  RoRoOb j ; 

BEGIN 

ShipsDone [ShipStatuslndex] .ShipDone  ;=  TRUE; 

IF  (  ShipStatuslndex  =  NumShip  ) 

AllDone  :=  TRUE; 

IF  (  AllDone  )  AND  (  ASK  WaitForShipQueue  numberln  = 

NumLighter  ) 

WriteLineC — Last  Lighter  in  the  Q,  Dumping 
Stats . - " )  ; 

RoRo  :=  ASK  ShipBuilder  First (); 

WHILE  RORO  <>  NILOBJ 

FOR  i  :=  1  TO  (ASK  RoRo  NumSpots) 

ASK  RoRo  TO  LogldleShipSpotTime (i, SimTime (), FALSE) 

END  FOR; 


RoRo  :=  ASK  ShipBuilder  Next (RoRo); 


END  WHILE; 


ASK  Stats  TO  DumpStats (SxmTime ( ) ) ; 
ELSE 

INC ( Ships tatuslndex) ; 

END  IF; 

END  METHOD; 


{  } 

ASK  METHOD  GetSpot(IN  Lighter  :  LighterObj); 

{  } 

VAR 

SrotReq  :  SpotType; 

i  :  INTEGER; 

index  :  INTEGER; 

SpotAvail  :  BOOLEAN ; 

Login  :  BOOLEAN; 

QType  :  BOOLEAN; 

RoRo  :  RoRoObj ; 

Dest  :  DestinationType; 

BEGIN 

{ 

WriteLine { "GetSpot  Fired  in  SLCP  ">; 

} 

SpotAvail  :=  FALSE; 

SpotReq  :=  ASK  Lighter  LighterSpot; 

Dest  :=  Ship; 

RoRo  : =  ASK  ShipBuilder  First ( ) ; 

WHILE  RoRo  <>  NILOBJ 
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IF  (  ASK  RoRo  LastLoad  ) 

RoRo  :=  ASK  ShipBuilder  Next (RoRo) ; 

ELSE 

ASK  RoRo  TO  CheckSpots (SpotReq,  SpotAvail,  i) ; 

IF  SpotAvail 

TELL  Lighter  TO  ApproachAndMoor ( i ,  Dest,  RoRo) ; 
EXIT; 

ELSE 

RoRo  :=  ASK  ShipBuilder  Next (RoRo); 

END  IF; 

END  IF; 

END  WHILE; 

IF  (  NOT  SpotAvail  ) 

ASK  WaitForShipQueue  TO  Add ( Lighter) ; 

Login  :=  TRUE;  {  adding  to  Q  } 

QType  :=  TRUE;  {  Q  type  =  ship  } 

ASK  Lighter  TO  LogQueueTime (SimTime ( ) ,  Login,  QType); 
END  IF; 


IF  (  AllDone  )  AND  (  ASK  WaitForShipQueue  numberln  = 

NumLighter  ) 

WriteLine(" — Last  Lighter  in  the  Q,  Dumping 
Stats . - " )  ; 

RoRo  : =  ASK  ShipBuilder  First ( ) ; 

WHILE  RORO  <>  NILOBJ 

FOR  i  :=  1  TO  (ASK  RoRo  NumSpotS) 

ASK  RoRo  TO  LogldleShipSpotTime ( i , SimTime ( ) , FALSE) 
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END  FOR; 


RoRo  :=  ASK  ShipBuilder  Next (RoRo) ; 
END  WHILE; 


ASK  Stats  TO  DumpStats (SimTime ( ) ) ; 
END  IF; 


} 


} 


VAR 

Lighter 

:  LighterObj ; 

Login 

:  BOOLEAN; 

QType 

:  BOOLEAN; 

Dest 

:  DestinationType; 

BEGIN 

{ 

WriteLine ( "GetLighter  Fired  in  SLOP.  Index  =  "  + 
INTTOSTR { index) ) ; 

} 

Dest  :=  Ship; 

{ 

WriteLine ( "Number  in  ship  Q  At  SLOP  is  "  + 

INTTOSTR (ASK  WaitForShipQueue  number In) ) ; 

} 


END  METHOD; 

{ 

ASK  METHOD  GetLighter { IN  Spot  :  SpotType 

IN  index  :  INTEGER 
IN  RORO  :  RoRoOb j ) 

{ 
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Lighter  : =  ASK  WaitForShipQueue  First ( ) ; 

{if  Spot  available  is  a  LoLo  spot  then  take  the  first 
available  from  the  queue,  ELSE,  the  lighter  SpotType  must 
match  the  SpotType  available  for  mooring  to  the  RRDF.} 

IF  (  Spot  =  LoLo  ) 

IF  Lighter  <>  NILOBJ 

ASK  WaitForShipQueue  TO  RemoveThis (Lighter) ; 

Login  :=  FALSE;  {  Not  entering  ship  Q  } 

QType  :=  TRUE;  {  Q  type  =  ship  } 

ASK  Lighter  TO  LogQueueTime (SimTime ( ) , Log In, QType ) ; 
TELL  Lighter  TO  ApproachAndMoor (index,  Dest,  RoRo) ; 

END  IF; 

ELSE 

WHILE  Lighter  <>  NILOBJ 

if  (  ask  Lighter  LighterSpot  =  Spot  ) 

ASK  WaitForShipQueue  TO  RemoveThis (Lighter) ; 

Login  :=  FALSE;  {  Not  entering  ship  Q  } 

QType  :=  TRUE;  {  Q  type  =  ship  } 

ASK  Lighter  TO  LogQueueTime (SimTime 0, Login, QType) ; 
tell  Lighter  TO  ApproachAndMoor (index,  Dest,  RoRo) ; 
EXIT; 

END  IF; 

Lighter  :=  ASK  WaitForShipQueue  Next (Lighter) ; 

END  WHILE; 

END  IF; 


END  METHOD; 
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ASK  METHOD  ResetSLCP; 


{  } 

VAR 

i  :  INTEGER; 

BEGIN 

AllDone  :=  FALSE; 

ShipStatuslndex  :=  1; 

FOR  i  :=  l  TO  HIGH (ShipsDone) 

ShipDone [i] .ShipDone  :=  FALSE; 

END  FOR; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  Lighter; 

{ 

Module  Name:  Lighter  Last  Modified:  17  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  a  Lighter  (Smallcraft  or  boat)  object. 

} 

FROM  Global  IMPORT  SpotType,  DestinationType; 

FROM  Ship  IMPORT  RoRoOb j ; 


161 


TYPE 


Light erNameType  =  (LCU1466  ,LCU1610,  LCU2000,  CWFH,  CWF21, 

CWF31,  LSV) ; 

LighterObj  =  OBJECT 


LighterTypeName 

LighterlD 

LighterSpot 

MaxSpeed 

Full LoadSpeed 

MyLoadSize 

ShiplD 

Fuel Capacity 
CurrentFuel 
FuelBurnRate 
MinFuel 

MinFuel Percent 

TransitDistance 
TimelnShipQueue 
Time I nBeachQueue 
TimeToTotalOf  f load 
LoadStatus 
ShipSpot Index 
BeachSpot I ndex 
Ref uelSpot Index 

InShipQTime 

OutShipQTime 

inBeachQTime 

OutBeachQTime 


LighterNameType ; 
STRING; 

SpotType; 

REAL; 

REAL; 

INTEGER; 

RoRoOb j ; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

REAL; 

BOOLEAN; 

INTEGER; 

INTEGER; 

INTEGER; 

REAL; 

REAL; 

REAL; 

REAL; 
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ASK  METHOD  Obj Ini t; 

ASK  METHOD  GetLighterSetup ( IN  ID  : 

IN  Name 
IN  Sp  : 
IN  Numl 
IN  Num2 
IN  Num3 
IN  Num4 
IN  Num5 
IN  Num6 


STRING; 

:  LighterNameType; 
SpotType; 

:  REAL; 

:  REAL; 

:  INTEGER; 

:  REAL; 

:  REAL; 

:  REAL)  ; 


ASK  METHOD  LogQueueTime ( IN  InOutQTime  :  REAL; 

IN  EnterQ  :  BOOLEAN; 

IN  ShipQ  :  BOOLEAN) ; 

ASK  METHOD  SetLoadStatuS { IN  Status  :  BOOLEAN; 

IN  Vessel  :  RoRoObj ) ; 
ASK  METHOD  BurnFuel ( IN  BurnTime  :  REAL) ; 

ASK  METHOD  ResetLighterStats; 


TELL  METHOD 

TELL  METHOD 
TELL  METHOD 

TELL  METHOD 

TELL  METHOD 
TELL  METHOD 

END  OBJECT; 


ApproachAndMoor { in  index  :  integer; 

IN  Dest  :  DestinationType; 
IN  Obj  :  ANYOBJ) ; 

OnLoad ( IN  RoRo  :  RoRoObj ) ; 

CastAndClear ( IN  Berth  :  DestinationType; 

IN  Obj  :  ANYOBJ) ; 

TransitTodN  Dest  :  DestinationType; 

IN  Obj  :  ANYOBJ) ; 

Of f Load (IN  Cbj  :  ANYOBJ); 

Refuel (IN  Obj  :  ANYOBJ); 


VAR 


Lighter  :  LighterObj ; 
END  MODULE. 
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IMPLEMENTATION  MODULE  Lighter; 


Module  Name:  Lighter  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  a  Lighter  (Boat)  object. 

} 

PROM  MathMod  IMPORT  EXP; 

FROM  Ship  IMPORT  RoRoOb j ,  ALL  ShipTypeType; 

FROM  Beach  import  BeachOb j ; 

FROM  Refuel  IMPORT  Ref uelAreaObj ,  RefuelArea; 

FROM  SLCP  IMPORT  SLCP; 

FROM  BLCP  IMPORT  BLCP; 

FROM  FuelCP  IMPORT  FuelCP; 

FROM  SimMod  IMPORT  SimTime; 

FROM  Global  IMPORT  ALL  DestinationType,  ALL  SpotType; 

FROM  Stats  IMPORT  Stats; 

FROM  writeLine  IMPORT  writeLine; 

FROM  Convert  IMPORT  LighterNameTypeToStr ,  BeachTypeToStr ; 

FROM  RepMngr  IMPORT  RepManager; 


OBJECT  LighterObj ; 

{  } 

ASK  METHOD  Objlnit; 

{  } 

BEGIN 

TimelnShipQueue  : =  0.0; 

TimelnBeachQueue  : =  0.0; 

inShipQTime  : =  0.0; 

OutShipQTime  : =  0.0; 

InBeachQTime  : =  0.0; 

OutBeachQTime  : =  0.0; 
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TimeToTotalOf f load  : =  0.0; 
LoadStatUS  :=  FALSE; 
ShipSpotlndex  :=  0; 
BeachSpot index  :=  0; 

Re fuel Spot Index  :=  0; 
TransitDistance  : =  0.0; 


END  METHOD; 

{ ----> 
ASK  METHOD  GetLighterSetup ( IN  ID  :  STRING; 

IN  Name  :  LighterNameType ; 

IN  Sp  :  SpotType; 

IN  Numl  :  REAL; 

IN  Num2  :  REAL; 

IN  Num3  :  INTEGER; 

IN  Num4  :  REAL; 

IN  Num5  :  REAL; 

IN  Num6  :  REAL) ; 


{  > 

BEGIN 

LighterlD  :=ID; 

LighterTypeName  : =Name ; 

LighterSpot  :=Sp; 

{ 


WriteLine ( "//GetLighterSetup//  LighterTypeName  =  "  + 
LighterNameTypeToStr (LighterTypeName)  + 

"  LighterlD  =  "  +  LighterlD) ; 

} 

MaxSpeed  : =Numi ; 

FullLoadSpeed  : =Num2 ; 

My Loads i z e  : = Num3 ; 
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FuelCapacity  : =Num4 ; 

FuelBurnRate  : =Num5 ; 

MinFuelPercent  :=Num6; 

CurrentPuel  :=  FuelCapacity; 

MinFuel  :=  FuelCapacity  *  MinFuelPercent; 
WriteLine ( "  MinFuel  =  "  +  REALTOSTR  (MinFuel ))  ; 


END  METHOD; 

} 


} 

BEGIN 

{ 

WriteLine ( "LogQueueTime  fired  on  "  + 

LighterNameTypeToS t r { LighterTypeName )  + 

"Lighter ID  =  "  +  Lighter ID) ; 

} 


{ 

ASK  METHOD  LogQueueTime ( IN  inOutQTime  :  REAL; 

IN  EnterQ  :  BOOLEAN; 
IN  ShipQ  :  BOOLEAN) ; 

{ 


IF  (EnterQ)  AND  (ShipQ) 

InShipQTime  :=  0.0; 

InShipQTime  :=  InOutQTime; 

ELSIF  (NOT  EnterQ)  AND  (ShipQ) 

OutShipQTime  : =  0.0; 

OutShipQTime  :=  InOutQTime; 

ASK  SELF  TO  BurnFuel (OutShipQTime  -  InShipQTime); 
TimelnShipQueue  :=  TimelnShipQueue  +  (OutShipQTime  - 

InShipQTime) ; 

ELSIF  (EnterQ)  AND  (NOT  ShipQ) 
inBeachQTime  :=  0.0; 
inBeachQTime  :=  InOutQTime; 

ELSE 

OutBeachQTime  : =  0.0; 

OutBeachQTime  :=  InOutQTime; 
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ASK  SELF  TO  BurnFuel (OutBeachQTime  -  InBeachQTime); 
TimelnBeachQueue  :=  TimelnBeachQueue  +  (OutBeachQTime 

-  InBeachQTime) ; 

END  IF; 

END  METHOD; 

{  } 

ASK  METHOD  SetLoadStatus ( IN  status  :  BOOLEAN; 

IN  Vessel  :  RoRoObj ) ; 

{  } 

BEGIN 

{ 

WriteLine ( "SetLoadStatus  fired  on  "  + 

LighterNameTypeToStr ( Light erTypeName)  + 

"LighterlD  =  "  +  Lighter ID) ; 

} 

LoadStatus  :=  Status; 

ShipID  :=  Vessel; 

END  METHOD; 


{ } 

ASK  METHOD  BurnFuel (IN  BurnTime  :  REAL) ; 

{  } 
BEGIN 

CurrentFuel  :=  CurrentFuel  -  (FuelBurnRate  *  BurnTime/60 . 0) ; 

{ 

WriteLine ( "Burning  fuel.  CurrentFuel  =  "  + 

REALTOSTR( CurrentFuel) ) ; 

WriteLine ("  "); 

} 
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END  METHOD; 


} 

} 


{ 

ASK  METHOD  ResetLighterStat s ; 

{ 

BEGIN 

{ 

WriteLine ( "ResetLighterStats  "  +  LighterlD) ; 

} 

InShipQTime  : =  0.0; 

OutShipQTime  : =  0.0; 

InBeachQTime  : =  0.0; 

OutBeachQTime  : =  0.0; 

TimelnShipQueue  :  =  0.0; 

TimelnBeachQueue  :=  0.0; 

TimeToTotalOf f load  : =  0.0; 

LoadStatus  :=  FALSE; 

ShipSpotlndex  :=  0; 

BeachSpot Index  :=  0; 

Re fuel Spot Index  :=  0; 

TransitDistance  :=  0.0; 

CurrentFuel  :=  FuelCapacity; 

END  METHOD; 

{ 

TELL  METHOD  ApproachAndMoor ( IN  index  :  INTEGER; 

IN  Dest  :  DestinationType; 
IN  Obj  :  ANYOBJ) ; 

{ 


VAR 

ApproachAndMoorTime 

Operat ionalDel ay 

RORO 

Beach 

RefuelArea 


REAL; 

REAL; 

RoRoOb j ; 
BeachOb j ; 
RefuelAreaObj  ; 


} 

} 
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MeanCWF 

MeanLCU 


:  REAL; 
:  REAL; 


BEGIN 

IF  (  Dest  =  Ship  ) 

ShipSpotlndex  :=  index; 

RoRo  : =  Ob j ; 

IF  (  ASK  RORO  ShipType  =  SSR  ) 
MeanCWF  :=  10.5; 

MeanLCU  : =14.25 ; 

ELSE  {  ShipType  =  NSSR  } 
MeanCWF  :=8.0; 

MeanLCU  : =14.25 ; 

END  IF; 


IF  Light erSpot  =  CWF 

ApproachAndMoorTime  :=  ASK  RandTimei  Normal (MeanCWF, 

3.22)  ; 

OperationalDelay  :=  ASK  RandTime2  Normal (2.0,  0.85); 
ELSE  {  LighterSpot  =  LCU  } 

ApproachAndMoorTime  :=  ASK  RandTimei  Normal (MeanLCU, 

2.22)  ; 

OperationalDelay  :=  ASK  RandTime2  Normal (2.0,  0.85); 
END  IF; 

ELSIF  (  Dest  =  Bch  ) 

BeachSpotlndcx  :=  index; 

IF  LighterSpot  =  CWF 

ApproachAndMoorTime  : =ASK  RandTimei  Normal (17.0,3.43) 
OperationalDelay  :=EXP(ASK  RandTime2 

Normal (1.0,0.85)); 


ELSE  {  LighterSpot  =  LCU  } 

ApproachAndMoorTime  : =ASK  RandTimel 

Normal (11.0,4.298) ; 

OperationalDelay  :=ASK  RandTime2  UniformReal (l . 0, 3 . 0) ; 
END  IF; 

ELSE 

{Dest  =  RefuelArea} 

RefuelSpotlndex  :  =  index; 

IF  LighterSpot  =  CWF 

ApproachAndMoorTime  :=ASK  RandTimel  Normal (17 . 0, 3 . 43) ; 
OperationalDelay  :=  ASK  RandTime2  Normal (1.0,  0.85); 
ELSE  {  LighterSpot  =  LCU  } 

ApproachAndMoorTime  : =ASK  RandTimel 

Normal (11.0,4. 298) ; 

OperationalDelay  : =ASK  RandTime2  UniformReal ( l . 0 , 3 . 0) ; 
END  IF; 

END  IF; 


WAIT  DURATION  ApproachAndMoorTime  +  OperationalDelay 
END  WAIT; 


ASK  SELF  TO  BurnFuel (ApproachAndMoorTime  + 

OperationalDelay) ; 


IF  (  Dest  =  Ship  ) 

{ 

WriteLine ( "ApproachAndMoor  Ship  "  +  "  ShipSpot  =  "  + 
INTTOSTR(ShipSpot index)  +  "  LighterlD  =  "  + 
LighterlD) ; 

WriteLine ( "  ApproachAndMoorTime  =  "  + 
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REALTOSTR (ApproachAndMoorTime  + 
OperationalDelay) ) ; 


ASK  RoRo  TO  MakeLoad(SELF,  ShipSpot Index) ; 

ELSIF  (  Dest  =  Bch  ) 

{ 

WriteLine ( "ApproachAndMoor  Beach  "  +  "  BeachSpot  =  "  + 
INTTOSTR (BeachSpotlndex)  +  "  LighterlD  =  "  + 
LighterlD) ; 

WriteLine ( "  ApproachAndMoorTime  ="+ 

REALTOSTR (ApproachAndMoorTime  + 
OperationalDelay) ) ; 

} 

Beach  : =  Ob j ; 

ASK  Beach  TO  OccupyBeachSpot (BeachSpotlndex) ; 

TELL  SELF  TO  Of f Load (Beach) ; 

ELSE 

{Dest  =  RefuelArea} 

{ 

WriteLine ( "ApproachAndMoor  RefuelArea  "  +  "  RefuelAreaSpot 
=  "  +  inttostr (Ref uelSpot index)  + 

"  LighterlD  =  "  +  LighterlD) ; 

WriteLine ("  ApproachAndMoorTime  =  "  + 

REALTOSTR (ApproachAndMoorTime  + 
OperationalDelay) )  ; 


RefuelArea  : =  Obj ; 

TELL  SELF  TO  Ref uel ( Ref uelArea) ; 
END  IF; 


END  METHOD; 


{ 

TELL  METHOD  OnLoad ( IN  RoRo  :  RORoOb j ) ; 

{ 
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VAR 

OnLoadTime 

REAL; 

OperationalDelay2 

REAL; 

MeanCWF 

REAL; 

MeanLCU 

REAL; 

BEGIN 

IF  (  ASK  RORO  ShipType  =  SSR  ) 

MeanCWF  :=  16.0; 

MeanLCU  :=  15.85; 

ELSE  {  ShipType  =  NSSR  } 

MeanCWF  :  =  25.0; 

MeanLCU  :  =  18.0; 

END  IF; 

IF  LighterSpot  =  CWF 

OnLoadTime  :=  ASK  RandTimel  Normal (MeanCWF,  3.87); 
OperationalDelay2  :=EXP(ASK  RandTime2 

Normal (1.24,1. 186) ) ; 

OnLoadTime  :=  OnLoadTime  *  FLOAT (My Loads i ze ) ; 

ELSIF  LighterSpot  =  LCU 

OnLoadTime  :=  ASK  RandTimel  Normal (MeanLCU,  3.87); 
OperationalDelay2  :=  ASK  RandTime2  Normald.O,  0.42); 
OnLoadTime  :=  OnLoadTime  *  FLOAT ( MyLoadS i ze ) ; 

ELSE 

OnLoadTime  :=  ASK  RandTime2  Normal (10 . 25,  5.75); 
OnLoadTime  :=  OnLoadTime  *  FLOAT (MyLoadSize) ; 

END  IF; 


WAIT  DURATION  OnLoadTime  +  OperationalDelay2 
END  WAIT; 
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+  ASK 


{ 

WriteLine ( "Onload  fired  "  + 

LighterNameTypeToStr { Light erTypeName)  + 

"  LighterlD  =  "  +  LighterlD  +  "  Ship  is  " 
RoRo  ShipName) ; 

WriteLine { "OnLoadTime  =  "  +  REALTOSTR ( onLoadTime  + 
OperationalDelay2) ) ; 

WriteLine ("  "); 

} 


ASK  SELF  TO  BurnFuel (OnLoadTime  +  OperationalDelay2) ; 
TELL  SELF  TO  CastAndClear (Ship,  RoRo) ; 


END  METHOD; 


. . . . . } 

TELL  METHOD  CastAndClear ( IN  Berth  :  DestinationType; 

IN  Obj  :  ANYQBJ) ; 

{ . } 

VAR 

CastAndClearTime  :  REAL; 

RoRo  :  RoRoObj ; 

Beach  :  BeachObj ; 

Ref uelArea  :  RefuelAreaObj ; 

MeanCWF  :  REAL; 

MeanLCU  :  REAL; 

Dest  :  DestinationType; 


BEGIN 

IF  (  Berth  =  Ship  ) 
RORO  : =  Ob j ; 
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IF  (  ASK  RORO  ShipType  =  SSR  ) 

MeanCWF  : =  5.0; 

MeanLCU  :=2.0; 

ELSE  {  ShipType  =  NSSR  } 

MeanCWF  :=4.0; 

MeanLCU  :=4.0; 

END  IF; 

IF  Light erSpot  =  CWF 

CastAndCl ear Time  :=ASK  RandTimei  Normal (MeanCWF, l. 33) ; 
ELSE  {  LighterSpot  =  LCU  } 

CastAndClearTime  : =ASK  RandTimei 

UniformReal (MeanLCU,  2.5) ; 


END  IF; 

ELSIF  (  Berth  =  Bch  ) 

Beach  : =  Obj ; 

IF  LighterSpot  =  CWF 

CastAndClearTime  : =  ASK  RandTimei  Normal (9.9,  1.76); 
ELSE  {  LighterSpot  =  LCU  } 

CastAndClearTime  : =ASK  RandTimei 

UniformReal (1.75,3.0) ; 


END  IF; 

ELSE 

{  Berth  =  RefuelArea  } 

IF  LighterSpot  =  CWF 

CastAndClearTime  :=  ASK  RandTimei  Normal(9.9,  1.76); 
ELSE  {  LighterSpot  =  LCU  } 

CastAndClearTime  :=ASK  RandTimei 

UniformReal (l . 75,  3.0); 


END  IF; 


174 


END  IF; 


WAIT  duration  CastAndClearTime 

END  WAIT; 

ASK  SELF  TO  BurnFuel (CastAndClearTime) ; 

IF  (  Berth  =  Ship  ) 

{If  this  Lighter  has  the  last  load,  LoadStatus  =  T,  then 
the  Lighter  simply  transits.  If  this  is  not  the  last 
load,  then  the  RoRo  sets  a  Spot  free  thus  starting  the 
whole  lighter  cycle  for  the  next  Lighter  of  the 
appropriate  type  in  the  AwaitingShipQueue . } 

{ 

WriteLine (LighterNameTypeToStr ( Light erTypeName)  +  " 
LighterlD  =  "  + 

LighterlD  +  "  CastAndClear  Ship  "  +  ask  RoRo 
ShipName) ; 

WriteLine ( "CastAndClearTime  =  "  + 

REALTOSTR( CastAndClearTime) ) ; 

WriteLine ("  "); 

} 


Dest  :=  Bch; 

IF  LoadStatus 

TELL  SELF  TO  TransitTo (Dest ,  RORO); 

ELSE 

ASK  RoRo  TO  SetSpotFree (ShipSpot Index) ; 

TELL  SELF  TO  TransitTo (Dest ,  RoRo); 

END  IF; 

ELSIF  (  Berth  =  Bch  ) 

{After  Offload  and  CastAndClear  are  complete,  check  fuel 
status  (only  one  check  in  cycle) .  If  less  than  or  equal 
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to  the  minimum  allowable,  the  lighter  must  transit  to 
the  refueling  area.  If  LoadStatus  =  T,  then  lighter  has 
just  carried  the  last  load  to  the  beach  and  it  is 
returning  to  the  ShipQ.} 


{ 

WriteLine (LighterNameTypeToStr (LighterTypeName)  + 
LighterlD  =  "  + 

LighterlD  +  "  CastAndClear  Beach  "  + 
BeachTypeToStr (ASK  Beach  BeachMake) ) ; 
WriteLine ( "CastAndClear Time  =  "  + 

REALTOSTR (CastAndClearTime) ) ; 

WriteLine ( "  " ) ; 

} 


IF  LoadStatus 
Dest  :=  Ship; 

TELL  self  TO  TransitTo (Dest ,  Beach); 

RETURN; 

ELSE 

IF  (CurrentFuel  <=  MinFuel) 

Dest  :=  Fuel; 

ASK  Beach  TO  SetSpotFree (BeachSpot Index) ; 
TELL  SELF  TO  TransitTo (Dest ,  Beach); 

ELSE 

Dest  :=  Ship; 

ASK  Beach  TO  SetSpotFree (BeachSpot Index) ; 


{ 

WriteLine ( "//Fuel  Status//  MinFuel  =  "  + 
REALTOSTR (MinFuel )  + 

"  CurrentFuel  —  "  + 

REALTOSTR (Current Fuel) ) ; 


TELL  SELF  TO  TransitTo (Dest ,  Beach); 
END  IF; 
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END  IF; 


ELSE 

{  Berth  =  RefuelArea  } 

Dest  :=  ShipFromRefuel; 
RefuelArea  : =  Ob j ; 


{ 

WriteLine (LighterNameTypeToStr (LighterTypeName)  +  " 
LighterlD  =  "  +  LighteriD  +  "  CastAndClear 
RefuelArea  "  +  ASK  RefuelArea  AreaName) ; 
WriteLine ( "CastAndClear Time  =  "  + 

REALTOSTR(CastAndClearTime) ) ; 

WriteLine ("  "); 

} 


ask  RefuelArea  TO  SetSpotFree(RefuelSpotlndex) ; 
TELL  SELF  to  TransitTo {Dest ,  RefuelArea); 

END  IF; 


END  METHOD; 


{  } 

TELL  METHOD  TransitTo (IN  Dest  :  DestinationType; 

IN  Obj  :  ANYOBJ) ; 

{  } 

VAR 

Trans itTime  :  REAL; 

RoRo  :  RoRoOb j ; 

Beach  :  BeachObj ; 

RefuelArea  .  Ref uelAreaObj ; 


177 


BEGIN 


IF  {  Dest  =  Bch  ) 

RoRo  : =  Ob j ; 

TransitDistance  :  ASK  RoRo  DistanceFromBLCP; 

TransitTime  :=  TransitDistance/ (FullLoadSpeed  *0.65) *60.0; 

{ 

WriteLine (LighterNameTypeToStr (LighterTypeName)  +  " 
LighterlD  =  "  + 

LighterlD  +  "  TransitTo  fired,  now  leaving  "  + 
ASK  RoRo  ShipName  +  "  for  BLCP.  "); 

WriteLine ( "TransitTime  =  "  +  REALTOSTR ( TransitTime) ) ; 
WriteLine ( "  " ) ; 

} 

ELSIF  (  Dest  =  Ship  ) 

Beach  : =  Obj ; 

TransitDistance  :=  ASK  Beach  DistanceToSLCP; 

TransitTime  :=  TransitDistance/ (MaxSpeed  *  0.65)  *  60.0; 

{ 

WriteLine (LighterNameTypeToStr (LighterTypeName)  +  " 
LighterlD  =  "  + 

LighterlD  +  "  TransitTo  Fired,  now  leaving  "  + 
BeachTypeToStr (ASK  Beach  BeachMake)  +  "  For 
SLOP . " ) ; 

WriteLine ( "TransitTime  =  "  +  REALTOSTR (TransitTime) ) ; 
WriteLine ( "  " ) ; 

} 

ELSIF  (  Dest  =  Fuel  ) 
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Beach  : =  Ob j ; 

Dest  :=  Refuel FromBeach; 

TransitDistance  :=  ASK  Beach  DistFromBeachToRefuel; 
TransitTime  :=  TransitDistance/ (MaxSpeed  *  0.65)  *  60.0; 


{ 

WriteLine (LighterNameTypeToStr ( Light erTypeName)  ♦  " 
LighterlD  =  "  + 

LighterlD  +  "  TransitTo  fired,  now  leaving 
beach  for  Ref uelArea  " ) ; 

WriteLine ("TransitTime  =  "  +  REALTOSTR (TransitTime) ) ; 
WriteLine ("  "); 

} 

ELSE 

{  Dest  =  ShipFromRef uel  } 

RefuelArea  : =  Obj ; 

TransitDistance  :=  ASK  RefuelArea  DistFromRefuelToShip; 
TransitTime  :=  TransitDistance/ (MaxSpeed  *  0.65)  *  60.0; 


{ 

WriteLine (LighterNameTypeToStr (LighterTypeName)  +  " 
LighterlD  =  "  + 

LighterlD  +  "  TransitTo  fired,  now  leaving  "  + 
ASK  RefuelArea  AreaName  +  "  for  SLCP  "); 
WriteLine ("TransitTime  =  "  +  REALTOSTR (TransitTime) ) ; 
WriteLine ( "  " ) ; 


END  IF; 


WAIT  DURATION  TransitTime 
END  WAIT; 
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ASK  SELF  TO  BurnFuel (Trans it Time)  ; 


IF  (  Dest  =  Bch  ) 

ASK  BLCP  TO  GetSpot (SELF) ; 

ELSIF  (  Dest  =  Ship  ) 

ASK  SLOP  TO  GetSpot (SELF)  ; 

ELSIF  (  Dest  =  RefuelFromBeach  ) 

ASK  FuelCP  TO  GetFuelSpot (SELF) ; 
ELSE 

{  Dest  =  ShipFromRefuel  } 

ASK  SLOP  TO  GetSpot (SELF) ; 

END  IF; 


END  METHOD; 


{  } 

TELL  METHOD  OffLoad(IN  Obj  :  ANYOBJ) ; 

{ . } 

VAR 

OffLoadTime  :  REAL; 

OperationalDelay4  :  REAL; 

Berth  :  DestinationType; 

Beach  :  BeachObj ; 


BEGIN 


IF  Light erSpot  =  CWF 

OffLoadTime  :=  ASK  RandTimel  NormaKlO.O,  3.43); 
0perationalDelay4  :=  ASK  RandTime2  UniformReal (0 . 0,  1.5); 
OffLoadTime  :  =  OffLoadTime  *  FLOAT (MyLoadS i ze ) ; 

ELSE  {  LighterSpot  =  LCU  } 

OffLoadTime  :=  ASK  RandTimel  Normal (3.0,  0.859); 
OperationalDelay4  :=  ASK  RandTime2  Normal(l.O,  0.333); 
OffLoadTime  :=  OffLoadTime  *  FLOAT (My Loads ize); 
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END  IF; 


wait  duration  OffLoadTime  +  OperationalDelay4 
END  WAIT; 


Beach  : =  Ob j ; 

{ 

WriteLine (LighterNameTypeToStr ( Light erTypeName)  +  " 
LighterlD  =  "  + 

LighterlD  +  "  Offload  fired  at  "  + 
BeachTypeToStr (ASK  Beach  BeachMake)); 
WriteLine ( "Of fLoadTime  =  "  +  REALTOSTR (Of f LoadTime  + 
OperationalDelay4) ) ; 

WriteLine ("  "); 

} 


ASK  SELF  TO  BurnFuel (Of fLoadTime  +  0perationalDelay4) ; 
Berth  :=  Bch; 

TELL  SELF  TO  CastAndClear (Berth,  Beach); 

END  METHOD; 


{  } 

TELL  METHOD  Refuel (IN  Obj  :  ANYOBJ) ; 

{  } 

VAR 

Re fuel Time  :  REAL; 

Rate  :  REAL; 

RefuelArea  :  RefuelAreaObj ; 

BEGIN 

{ 
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WriteLine (LighterNameTypeToStr ( Light erTypeName)  +  " 
LighterlD  =  "  + 

LighterlD  +  "  Refueling  "); 

} 

RefuelArea  : =  Obj ; 

Rate  :=  ASK  RefuelArea  PumpRate; 

RefuelTime  :=  { (FuelCapacity  -  CurrentFuel)  /  Rate)  *  60.0; 
CurrentFuel  :=  FuelCapacity; 

{ 

WriteLine ( "RefuelTime  =  "  +  REALTOSTR (RefuelTime) ) ; 
WriteLine ( "  " ) ; 

} 

WAIT  DURATION  RefuelTime 
END  WAIT; 

TELL  SELF  TO  CastAndClear ( Fuel ,  Ob  j )  ; 

END  METHOD; 


END  OBJECT; 
END  MODULE. 


DEFINITION  MODULE  BLCP; 

{ 

Module  Name:  BLCP  Last  Modified:  18  Jun  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  the  Beach  Lighterage  Control  Point 

Object  (BLCPObj ) .  After  a  Lighter  CastsandClears  the  beach 
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it  asks  the  BeachObj  to  SetSpotFree.  This  method  fires  the 
GetLighter  method  in  BLCPObj .  BLCPObj  then  pops  the  first 
appropriate  lighter  off  of  theAwaitingBeachQueue  and  directs 
the  lighter  to  ApproachAndMoor  to  the  Beach,  where  the 
offload  of  vehicles  can  begin. 

} 

FROM  GrpMod  IMPORT  QueueOb  j  ; 

FROM  Lighter  IMPORT  LighterObj; 
from  Beach  IMPORT  BeachObj ; 

TYPE 

AwaitingBeachQueueObj  =  OBJECT (QueueOb j [ANYOBJ:  LighterObj]) 
END  OBJECT; 

BLCPObj  =  OBJECT 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetSpot ( IN  Lighter  :  LighterObj); 
ask  METHOD  GetLighter ( IN  index  :  integer ; 

IN  Beach  :  BeachObj ) ; 

END  OBJECT; 

VAR 

WaitForBeachQueue  :  AwaitingBeachQueueObj ; 

BLCP  :  BLCPObj; 

END  MODULE. 


IMPLEMENTATION  MODULE  BLCP; 

{ 

Module  Name:  BLCP  Last  Modified:  17  Jul  93 

Author :  J .  S .  Noel 

Lt .  USN 
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DESCRIPTION:  Implements  a  Ship  Lighter  Control  Point  (SLCP) 

object. 


FROM  Global  IMPORT  SpotType, 

ALL  DestinationType; 
FROM  Lighter  IMPORT  LighterObj; 

FROM  Beach  IMPORT  BeachObj ; 

FROM  SimMod  IMPORT  SimTime; 

FROM  Builder  IMPORT  BeachBuilder ; 

FROM  WriteLine  IMPORT  WriteLine; 


OBJECT  BLCPObj ; 

{  } 

ASK  METHOD  Objlnit; 


BEGIN 

NEW(WaitForBeachQueue) ; 
END  METHOD; 


ASK  METHOD  GetSpotdN  Lighter  :  LighterObj); 


VAR 

i  :  INTEGER; 

SpotAvail  :  BOOLEAN; 

Login  :  BOOLEAN; 

ThisQ  :  BOOLEAN; 

TheBeach  :  BeachObj ; 

Dest  :  DestinationType; 

BEGIN 

{ 

WriteLine ( "GetSpot  Fired  in  BLCP  "); 

} 
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SpotAvail  :=  FALSE; 

Dest  :=  Bch; 

TheBeach  :=  ASK  BeachBuilder  First (); 

WHILE  TheBeach  <>  NILOBJ 

ASK  TheBeach  TO  CheckSpots (SpotAvail,  i) ; 

IF  SpotAvail 

TELL  Lighter  TO  ApproachAndMoor { i ,  Dest,  TheBeach); 
EXIT; 

END  IF; 

TheBeach  :=  ASK  BeachBuilder  Next (TheBeach)  ; 

END  WHILE; 

IF  (  NOT  SpotAvail  ) 

ASK  WaitForBeachQueue  TO  Add (Lighter) ; 

Login  :=  TRUE;  {  adding  to  Q  } 

ThisQ  :=  FALSE;  {  Q  type  =  Beach  } 

ASK  Lighter  TO  LogQueueTime (SimTime ( ) ,  Login,  ThisQ); 

END  IF; 

END  METHOD; 

} 


} 

VAR 

Lighter  :  LighterObj ; 

Login  :  BOOLEAN; 

ThisQ  :  BOOLEAN; 

Dest  :  DestinationType; 


BEGIN 

{ 


{ 

ASK  METHOD  GetLighter ( IN  index  :  INTEGER; 

IN  Beach  :  BeachObj ) ; 

{ 
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WriteLine ( "GetLighter  Fired  in  BLCP  "); 

} 

Dest  : =  Bch; 

Lighter  : =  ASK  WaitForBeachQueue  First ( ) ; 

IF  Lighter  <>  NILOBJ 

ASK  WaitForBeachQueue  TO  RemoveThis (Lighter) ; 

Login  :=  FALSE;  {  not  adding  to  Q  } 

ThisQ  :=  FALSE;  {  Q  type  =  beach  } 

ASK  Lighter  TO  LogQueueTime (SimTime ( ) ,  Login,  ThisQ); 
TELL  Lighter  TO  ApproachAndMoor (index,  Dest,  Beach); 
ASK  Beach  TO  OccupyBeachSpot (index); 


END  IF; 


END  METHOD; 
END  OBJECT; 
END  MODULE. 


DEFINITION  MODULE  Beach; 

{ 

Module  Name:  Beach  Last  Modified:  20  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  a  Beach  object. 

} 

FROM  ShpList  IMPORT  SpotArrayType; 

FROM  Global  IMPORT  Spot idleTimeArrayType; 


186 


TYPE 


BeachType  =  (BareBeach,  FloatingCWPier,  ELCAS) ; 

BeachObj  =  OBJECT 

BeachMake  :  BeachType ; 

BeachID  :  STRING; 

NumSpOtS  :  INTEGER; 

BeachSpot  :  SpotArrayType; 

DistanceToSLCP  :  REAL; 

DistFromBeachToRefuel  :  REAL; 

BeachSpot I dleTime  :  SpotldleTimeArrayType; 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetBeachSetup ( IN  ID  :  STRING; 

IN  Name  :  BeachType; 

IN  Numl  :  INTEGER; 

IN  Array  :  SpotArrayType; 
IN  Num2  :  REAL; 

IN  Num3  :  REAL) ; 

ASK  METHOD  SetSpotFree ( IN  index  :  integer); 

ASK  METHOD  CheckSpOtS (OUT  SpOtAvail  :  BOOLEAN; 

OUT  index  :  INTEGER) ; 

ASK  METHOD  LogldleBeachSpotTime ( IN  index  :  INTEGER; 

IN  InOutSpotTime  :  REAL; 
IN  Spotldle  :  BOOLEAN) ; 

ASK  METHOD  OccupyBeachSpot ( IN  index  :  INTEGER); 

ASK  METHOD  ResetBeachStats; 


END  OBJECT; 

VAR 

Beach  :  BeachObj ; 
END  MODULE. 
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IMPLEMENTATION  MODULE  Beach; 

{ 

Module  Name:  Beach  Last  Modified:  18  Jun  93 


Author:  j.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  a  Beach  object. 

} 

FROM  ShpList  IMPORT  Spot Arr ayType ; 

FROM  Global  IMPORT  ALL  SpotType,  SpotRecType, 

ALL  SpotldleTimeRecType; 

FROM  SimMod  IMPORT  SimTime; 

FROM  BLCP  IMPORT  BLCP; 

FROM  WriteLine  IMPORT  WriteLine; 

FROM  Convert  IMPORT  BeachTypeToStr; 

TYPE 

OBJECT  BeachOb j ; 

{  } 

ASK  METHOD  Objlnit; 

{  } 

BEGIN 

END  METHOD; 

{  } 


ASK  METHOD  GetBeachSetup { IN  ID  :  STRING; 

IN  Name  :  BeachType; 

IN  Numl  :  INTEGER; 

IN  Array  :  SpotArrayType; 

IN  Num2  :  REAL; 

IN  Num3  :  REAL) ; 

{  ) 
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VAR 

i  :  INTEGER; 

Rec  :  SpotldleTimeRecType; 

BEGIN 

BeachID  : =  ID; 

BeachMake  :  =  Name  ; 

{ 

WriteLine ( "//GetBeachSetup//  BeachMake  =  "  + 
BeachTypeToStr (BeachMake) ) ; 

} 

NumSpots  :=  Numl; 

NEW(BeachSpot,  1 . .NumSpots) ; 

BeachSpot  :=  Array; 

DistanceToSLCP  :=  Num 2; 

DistFromBeachToRef uel  : =  Num3 ; 

NEW(BeachSpotIdleTime,  1. .NumSpots) ; 

FOR  i  : =  1  TO  NumSpots 

BeachSpot [i] .TotalldleTime  :=  0.0; 

NEW (Rec) ; 

Rec . StartTime  : =  0.0; 

Rec . EndTime  : =  0.0; 

BeachSpot idleTime [i]  :=  Rec; 

END  FOR; 


END  METHOD; 
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} 


{ 

ASK  METHOD  LogldleBeachSpotTime ( IN  index  :  INTEGER; 

IN  InOutSpotTime  :  REAL; 

IN  Spotldle  :  BOOLEAN) ; 

{  } 

BEGIN 

{ 

WriteLine ( "LogldleBeachSpotTime  Fired  "); 

} 

IF  Spotldle 

BeachSpotldleTime [index] . StartTime  :=  InOutSpotTime; 

ELSE 

BeachSpotldleTime [index] . EndTime  :=  InOutSpotTime; 
BeachSpot [index] .Total idleTime  := 

BeachSpot [index] .Total idleTime  + 

(BeachSpotldleTime [ index] . EndTime  - 

BeachSpotldleTime [index] .StartTime) ; 

END  IF; 

END  METHOD; 


{  } 

ASK  METHOD  SetSpotFree ( IN  index  :  INTEGER); 

{  } 

VAR 

Idle  :  BOOLEAN; 

BEGIN 

{ 

WriteLine ( "SetSpotFree  fired  in  beach  "  + 

BeachTypeToStr (BeachMake)  +  "  Spot  "  + 

INTTOSTR( index) ) ; 
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BeachSpot [index] . Spot Free  :=  TRUE; 

Idle  :=  BeachSpot [index] .Spot Free; 

ASK  SELF  TO  LogldleBeachSpotTime ( index,  SimTimeO,  Idle); 
ASK  BLCP  TO  Get Lighter (index,  SELF); 

END  METHOD; 

{ 

ASK  METHOD  CheckSpotS (OUT  SpotAvail  :  BOOLEAN; 

OUT  index  :  INTEGER) ; 

4 

{ 

BEGIN 

{ 

writeLine ( "CheckSpots  fired  in  beach  "  + 

BeachTypeToStr (BeachMake) ) ; 

} 

SpotAvail  :=  FALSE; 

FOR  index  :=  l  TO  HIGH (BeachSpot ) 

IF  (BeachSpot [index] .Spot Free) 

SpotAvail  :=  TRUE; 

BeachSpot [index] . Spot Free  :=  FALSE; 

EXIT; 

END  IF; 

END  FOR; 

END  METHOD; 

{ 

ASK  METHOD  OccupyBeachSpot ( IN  index  :  INTEGER); 

{ 

VAR 

Idle  :  BOOLEAN; 


BEGIN 

{ 

WriteLine( "Occupy  spot  fired  in  beach  "  + 

BeachTypeToStr (BeachMake) ) ; 

} 

BeachSpot [index] .Spot Free  :=  FALSE; 

Idle  :=  BeachSpot [index] . Spot Free; 

ASK  SELF  TO  LogldleBeachSpotTime ( index,  SimTimeO,  Idle); 
END  METHOD; 

{ 

ASK  METHOD  ResetBeachStats; 

{ 

VAR 

i  :  INTEGER; 

BEGIN 

{ 

WriteLine ( "ResetBeachStats  "  +  BeachTypeToStr (BeachMake) ) ; 

} 

FOR  i  : =  1  TO  NumSpotS 

BeachSpot [i] . SpotFree  :=  TRUE; 

BeachSpot [i] .TotalldleTime  :=  0.0; 

BeachSpot IdleTime [i] . StartTime  :=  0.0; 

BeachSpot IdleTime [ i] . EndTime  : =  0.0; 

END  FOR; 

END  METHOD; 


END  OBJECT; 


END  MODULE. 


DEFINITION  MODULE  FuelCP; 

{ 

Module  Name:  FuelCP  Last  Modified:  20  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  the  Fuel  Control  Point  Object 

(FuelCPObj)  and  the  WaitingForFuelQueueObj .  The 
Waiting For FuelQueue  is  a  FIFO  group  of  lighters  waiting  for 
an  empty  spot  for  refueling.  When  a  spot  opens  up  the 
FuelCPObj  pops  the  first  lighter  off  of  the  queue  and  TELLs 
it  ApproachAndMoorRef uelArea . 

} 

FROM  GrpMod  IMPORT  QueueOb j ; 

FROM  Global  IMPORT  SpotType; 

FROM  Lighter  import  LighterObj; 

FROM  Refuel  IMPORT  RefuelAreaObj ; 

TYPE 

WaitingForFuelQueueObj  =  OB JECT { QueueOb j [ANYOBJ : 

LighterObj ] ) 

END  OBJECT; 

FuelCPObj  =  OBJECT 

ASK  METHOD  Objlnit; 

ASK  METHOD  GetFuelSpot ( IN  Lighter  :  LighterObj); 

ASK  METHOD  GetGasLowLighter ( IN  index  :  INTEGER; 

IN  RefuelArea  :  RefuelAreaObj ) ; 

END  OBJECT; 

VAR 

WaitForFuelQueue  :  WaitingForFuelQueueObj ; 

FuelCP  :  FuelCPObj ; 
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END  MODULE. 


IMPLEMENTATION  MODULE  FuelCP; 


Module  Name:  FuelCP  Last  Modified:  20  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  implements  the  Fuel  Control  Point  Object 

(FuelCPObj)  and  the  WaitingForFuelQueueObj . 


FROM  Lighter  IMPORT  LighterObj ; 

FROM  SimMod  IMPORT  SimTime; 

FROM  Refuel  IMPORT  RefuelAreaObj ; 

FROM  Builder  IMPORT  FuelAreaBuilder; 

FROM  Global  IMPORT  ALL  Dest inationType; 

FROM  WriteLine  IMPORT  WriteLine; 

TYPE 

OBJECT  FuelCPObj; 


ASK  METHOD  Objlnit; 


BEGIN 

NEW(waitForFuelQueue)  ; 
END  METHOD ; 


ASK  METHOD  GetFuelSpot ( IN  Lighter  :  LighterObj); 


VAR 
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SpotAvail  :  BOOLEAN; 
index  :  INTEGER; 

RefuelArea  :  RefuelAreaObj ; 
Dest  :  DestinationType; 


BEGIN 

{ 

WriteLine ( "GetFuelSpot  Fired  "  +  "  LighterlD  =  "  +  ASK 
Lighter  LighterlD) ; 

}  ' 

SpotAvail  :=  FALSE; 

Dest  :=  Fuel; 

RefuelArea  : =  ASK  FuelAreaBuilder  First ( ) ; 

WHILE  RefuelArea  <>  NILOBJ 

ASK  RefuelArea  TO  CheckFuelSpots (SpotAvail ,  index); 

IF  SpotAvail 

TELL  Lighter  TO  ApproachAndMoor (index,  Dest, 
RefuelArea) ; 

ASK  RefuelArea  TO  OccupySpot (index) ; 

RETURN; 

END  IF; 

RefuelArea  :=  ASK  FuelAreaBuilder  Next (RefuelArea) ; 

END  WHILE; 

IF  (NOT  SpotAvail  ) 

ASK  WaitForFuelQueue  TO  Add ( Lighter) ; 

END  IF; 

END  METHOD; 

ASK  METHOD  GetGasLowLighter ( IN  index  :  INTEGER; 

IN  RefuelArea  :  RefuelAreaObj); 


{ 


VAR 

Lighter  :  LighterObj ; 

Dest  :  DestinationType; 

BEGIN 

{ 

WriteLine ( "GetGasLowLighter  Fired  "); 

} 

Dest  : =  Fuel ; 

Lighter  : =  ASK  WaitForFuelQueue  First ( ) ; 
if  Lighter  <>  nilobj 

ASK  WaitForFuelQueue  TO  RemoveThis (Lighter) ; 

TELL  Lighter  TO  ApproachAndMoor (index,  Dest,  RefuelArea) ; 
END  IF; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 


DEFINITION  MODULE  Refuel; 

{ 

Module  Name:  RefuelArea  Last  Modified:  20  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  The  RefuelArea  object. 

} 
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FROM  Global  IMPORT  Ref uelSpotRecType; 
FROM  Lighter  IMPORT  LighterOb j ; 

TYPE 


RefuelSpotArrayType  =  ARRAY  INTEGER  OF  RefuelSpotRecType; 


RefuelAreaObj  =  OBJECT 


AreaName 

NumRefuelSpots 

DistFromRefuelToShip 

RefuelSpot 

PumpRate 


STRING; 

INTEGER; 

REAL; 

RefuelSpotArrayType ; 
REAL; 


ASK  METHOD  Objlnit; 

ASK  rUTHOD  GetRef uelAreaSetup ( IN  Name  :  STRING; 

IN  Numl  :  INTEGER; 
IN  Num2  :  REAL; 

IN  Array  : 


RefuelSpotArrayType ; 


IN  Num3  :  REAL) ; 


ASK  METHOD  SetSpotFree ( IN  index  :  INTEGER); 

ASK  METHOD  CheckFuelSpotS (OUT  SpotAvail  :  BOOLEAN; 

OUT  index  :  INTEGER) ; 

ASK  method  OccupyRef uelSpot ( IN  index  :  INTEGER); 


END  OBJECT; 

VAR 

Ref uelArea  :  RefuelAreaObj ; 
END  MODULE. 


IMPLEMENTATION  MODULE  Refuel; 
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{ 

Module  Name:  RefuelArea  Last  Modified:  20  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  The  RefuelArea  object. 

} 

FROM  FuelCP  IMPORT  FuelCP; 

FROM  Lighter  IMPORT  LighterObj ; 

FROM  WriteLine  IMPORT  WriteLine; 


OBJECT  RefuelAreaObj ; 


{ . 

ASK  METHOD  Objlnit; 

{ . 

BEGIN 


} 

} 


END  METHOD; 


{ 

ASK  method  GetRef uelAreaSetup ( IN  Name  :  STRING; 

IN  Numl  :  INTEGER; 
IN  Num2  :  REAL; 


Ref uelSpotArrayType ; 

{ 


IN  Array  : 

IN  Num3  :  REAL)  ; 


BEGIN 


} 


} 
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AreaName 


:  =Name  ; 


{ 

WriteLine("//GetRefuelAreaSetup//  AreaName  =  "  +  AreaName) 

} 

NumRefuelSpots  :=Numl; 

DistFromRef uelToShip  : =Num2 ; 

NEW(Refuelspot,  l. .NumRefuelSpots) ; 

RefuelSpot  : =Array; 

PumpRate  : =Num3 ; 


END  METHOD; 


{ . 

ASK  METHOD  SetSpotFree ( IN  index  :  INTEGER); 

{ 

BEGIN 

{ 

WriteLine ( "SetSpotFree  Fired  in  RefuelArea  "); 

} 

RefuelSpot [index] .RefuelSpot Free  :=  TRUE; 

ASK  FuelCP  TO  GetGasLowLighter ( index,  SELF) ; 


END  METHOD; 


ASK  METHOD  CheckFuel Spots (OUT  SpotAvail  :  BOOLEAN; 

OUT  index  :  INTEGER) ; 

{ 


BEGIN 

{ 

WriteLine ( "CheckFuel Spots  fired  in  RefuelArea  "); 

} 

SpotAvail  :=  FALSE; 

FOR  index  :=  l  TO  HIGH (RefuelSpot) 

IF  (RefuelSpot [index] .RefuelSpotFree) 

SpotAvail  ;=  TRUE; 

RETURN; 

END  IF; 

END  FOR; 

END  METHOD; 

{ 

ASK  METHOD  OccupyRef uelSpot ( IN  index  :  INTEGER); 

{ 

BEGIN 

{ 

WriteLine ( "OccupySpot  Fired  in  RefuelArea  spot  =  "  + 
INTTOSTR( index) ) ; 

} 

RefuelSpot [index] .RefuelSpotFree  :=  FALSE; 

END  METHOD; 

END  OBJECT; 


END  MODULE. 


DEFINITION  MODULE  Convert; 


Module  Name:  Convert  Last  Modified:  20  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Defines  Procedures  for  converting  enumerated 
types  to/from  STRING  for  input/output. 

} 

FROM  Global  IMPORT  SpotType; 

FROM  Beach  IMPORT  BeachType; 

FROM  Lighter  IMPORT  LighterNameType; 

FROM  Ship  IMPORT  ShipTypeType; 


PROCEDURE  SpotTypeToStr ( IN  Spot  :  SpotType)  :  STRING; 
PROCEDURE  StrToSpOtType ( IN  Str  :  STRING)  :  SpotType; 

PROCEDURE  BeachTypeToStr (IN  BchName  :  BeachType)  :  STRING ; 
PROCEDURE  StrToBeachType ( IN  Str  :  STRING)  :  BeachType; 

PROCEDURE  LighterNameTypeToStr (IN  LighterName  : 

LighterNameType)  :  STRING; 
PROCEDURE  StrToLighterNameType(IN  Str  :  STRING)  : 

LighterNameType ; 

PROCEDURE  ShipTypeToStr (IN  ShipType  :  ShipTypeType)  : 

STRING; 

PROCEDURE  StrToShipType ( IN  Str  :  STRING)  :  ShipTypeType; 

PROCEDURE  BooleanToStr (IN  Boolean  :  BOOLEAN)  :  STRING; 
PROCEDURE  StrToBoolean ( IN  Str  :  STRING)  :  BOOLEAN; 


END  MODULE. 


IMPLEMENTATION  MODULE  Convert; 
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{ 

Module  Name:  Convert  Last  Modified:  20  Jul  93 

Author:  j.  S.  Noel 

Lt .  USN 


DESCRIPTION:  Implements  Procedures  for  converting 

enumerated  types  to/from  STRING  for  input/output. 


FROM  Global 
from  Beach 
FROM  Lighter 
FROM  Ship 
FROM  WriteLine 


IMPORT  ALL  SpotType; 

IMPORT  ALL  BeachType; 

IMPORT  ALL  Light erNameType; 
IMPORT  ALL  ShipTypeType ; 
IMPORT  WriteLine; 


} 


{  } 

PROCEDURE  SpOtTypeToStr (IN  Spot  :  SpotType)  :  STRING; 

{ . } 

VAR 

Str  :  STRING; 

BEGIN 
CASE  Spot 

WHEN  LCU  :  Str  :=  "LCU"; 

WHEN  CWF  :  Str  :=  "CWF"; 

WHEN  LOLO  :  Str  :=  "LoLo"; 

OTHERWISE 

Str  :=  "Other...?"; 

END  CASE; 

RETURN (Str) ; 

END  PROCEDURE; 
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{---- 

PROCEDURE  StrToSpotType ( IN  Str  :  STRING)  :  SpotType; 

{ 

VAR 

Spot  :  SpotType ; 

BEGIN 

writeLine ( "Converting"  +  Str); 

CASE  Str 


WHEN  "LCU" 

Spot 

=  LCU 

WHEN  "LCU" 

Spot 

=  LCU 

WHEN  "1CU" 

Spot 

=  LCU 

WHEN  "CWF" 

Spot 

=  CWF 

WHEN  "Cwf " 

Spot 

=  CWF 

WHEN  "cwf" 

Spot 

=  CWF 

WHEN 

"LoLo" 

Spot 

:=  LoLo; 

WHEN 

"Lolo" 

Spot 

:=  LoLo; 

WHEN 

"lolo" 

Spot 

: =  LoLo ; 

WHEN 

"LOLO" 

Spot 

: =  LOLO; 

END  CASE; 
RETURN (Spot) ; 
END  PROCEDURE; 


PROCEDURE  BeachTypeToStr ( IN  BchName  :  BeachType)  :  STRING; 

{ 

VAR 

Str  :  STRING; 

BEGIN 


CASE  BchName 


WHEN  BareBeach  :  Str  :=  "BareBeach"; 

WHEN  Float ingCWPier  :  Str  :=  " Float ingCWPier * ; 
WHEN  ELCAS  :  Str  :=  "ELCAS"; 

OTHERWISE 

Str  :=  "Other...?"; 

END  CASE; 

RETURN (Str) ; 

END  PROCEDURE; 


{ 

PROCEDURE  StrToBeachType ( IN  Str  :  STRING)  :  BeachType; 

{ 

VAR 

BeachName  ;  BeachType ; 

BEGIN 

WriteLine ( "Converting"  +  Str); 

CASE  Str 

WHEN  "BareBeach"  :  BeachName  :=  BareBeach; 

WHEN  "FloatingCWPier"  :  BeachName  :=  FI oat ingCWPier; 
WHEN  "ELCAS"  :  BeachName  ;=  ELCAS; 

END  CASE; 

RETURN  (BeachName)  ; 

END  PROCEDURE; 


{ 

PROCEDURE  LighterNameTypeToStr (IN  LighterName  : 

LighterNameType)  :  STRING; 


{ 


Str  :  STRING; 

BEGIN 

CASE  LighterName 

WHEN 

LCU1466  : 

Str 

= 

"LCU1466" ; 

WHEN 

LCU1610  : 

Str 

= 

"LCU1610"  ; 

WHEN 

LCU2000  : 

Str 

= 

"LCU2000" ; 

WHEN 

CWF11 

Str 

= 

"CWF11" ; 

WHEN 

CWF21  : 

Str 

= 

"CWF21"; 

WHEN 

CWF31  : 

Str 

= 

"CWF31" ; 

WHEN 

LSV  : 

Str 

= 

"LSV"; 

OTHERWISE 

Str  : =  "Other. . .  ?"; 
END  CASE; 


RETURN (Str) ; 


END  PROCEDURE; 

{ . 

PROCEDURE  StrToLighterNameType ( IN  Str  :  STRING)  : 
LighterNameType ; 

{ 


VAR 

LighterName  :  LighterNameType; 
BEGIN 


WriteLine ( "Converting"  +  Str); 


CASE  Str 

WHEN  "LCU1466 " 
WHEN  "LCU1610 " 
WHEN  "LCU2000" 
WHEN  "CWF11" 
WHEN  "CWF21" 
WHEN  "CWF31" 
WHEN  "LSV" 


LighterName 

LighterName 

LighterName 

LighterName 

LighterName 

LighterName 

LighterName 


LCU1466 

LCU1610 

LCU2000 

CWF11 ; 

CWF21; 

CWF31; 

LSV; 


) 

} 
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END  CASE; 


RETURN ( Light erName)  ; 
END  PROCEDURE; 


{ 

PROCEDURE  ShipTypeToStr ( IN  ShipType  :  ShipTypeType)  : 
STRING; 

{ 

VAR 

Str  :  STRING; 

BEGIN 

CASE  ShipType 

WHEN  SSR  :  Str  :=  "SSR"; 

WHEN  NSSR  :  Str  :=  "NSSR"; 

OTHERWISE 

Str  :=  "Other...?"; 

END  CASE; 

RETURN (Str) ; 

END  PROCEDURE; 


{ 

PROCEDURE  StrToShipType ( IN  Str  :  STRING)  :  ShipTypeType; 

{ 

VAR 

ShipType  :  ShipTypeType ; 


BEGIN 


WriteLine ( "Converting"  +  Str) ; 

CASE  Str 

WHEN  "SSR"  :  ShipType  :=  SSR; 
WHEN  "NSSR"  :  ShipType  :=  NSSR; 


END  CASE; 

RETURN (ShipType) ; 
END  PROCEDURE; 


{  } 

PROCEDURE  BooleanToStr ( IN  Boolean  :  BOOLEAN)  :  STRING; 

{ . } 

VAR 

Str  :  STRING; 

BEGIN 

CASE  Boolean 

WHEN  TRUE  :  Str  :=  "TRUE"; 

WHEN  FALSE  :  Str  :=  "FALSE"; 

OTHERWISE 

Str  :=  "Other. . . ?"; 

END  CASE; 

RETURN (Str) ; 

END  PROCEDURE; 
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{ 

PROCEDURE  StrToBoolean < IN  str  :  STRING)  :  BOOLEAN; 

{ 


} 

} 


VAR 

Boolean  :  BOOLEAN; 

BEGIN 

WriteLine ( "Converting"  +  Str); 

CASE  Str 

WHEN  "TRUE"  :  Boolean  :=  TRUE; 
WHEN  "FALSE"  :  Boolean  :=  FALSE; 

END  CASE; 

RETURN (Boolean) ; 

END  PROCEDURE; 


END  MODULE. 


DEFINITION  MODULE  Stats; 


{ 

Module  Name:  Stats  Last  Modified:  21  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 


DESCRIPTION:  Defines  the  Statistics  Object. 


FROM  Ship  IMPORT  RoRoObj  ; 


} 


TYPE 
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SpotldleTimeRecType  =  RECORD 
Place  :  STRING; 

Time  :  REAL; 

END  RECORD; 

GrandMeanBeachSpotldleTimeArrayType  =  ARRAY  INTEGER  OF 

SpotldleRecType; 


StatsObj  =  OBJECT; 

Reps  :  INTEGER; 

NumBeaches  :  INTEGER; 
MeanTPut  ;  REAL; 
MeanLCUinBQ  :  REAL; 
MeanLSVinBQ  :  REAL; 
MeanCWFinBQ  :  REAL; 

GrandMeanLCUinBQ  :  REAL 
GrandMeanLSVinBQ  ;  REAL 
GrandMeanCWFinBQ  :  REAL 
GrandMeanLCUinSQ  :  REAL 
GrandMeanLSVinSQ  :  REAL 
GrandMeanCWFinSQ  :  REAL 

MeanLCUinSQ  :  REAL; 
MeanLSVinSQ  :  REAL; 
MeanCWFinSQ  :  REAL; 


MeanShipLCUSpotldle  :  REAL; 

MeanShipCWFSpotldle  :  REAL; 

MeanShipLoLoSpotldle  :  REAL; 

GrandMeanShipLCUSpotidle  :  REAL; 

GrandMeanShipCWFSpotldle  :  REAL; 

GrandMeanShipLoLoSpotldle  :  REAL; 

MeanBeachSpotldle  :  REAL; 

GrandMeanBeachSpotldleTime  : 

GrandMeanBeachSpotldleTimeArrayType; 
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ASK  METHOD  Objlnit; 

ASK  METHOD  DumpStatS ( IN  OffloadTime  :  REAL) ; 
END  OBJECT; 

VAR 

stats  :  Statsobj ; 

END  MODULE. 


IMPLEMENTATION  MODULE  StatS; 

{--- 

Module  Name:  Stats  Last  Modified:  21  Jul  93 

Author:  J.  S.  Noel 

Lt .  USN 

DESCRIPTION:  Implements  the  Statistics  Object. 

} 

FROM  Lighter  IMPORT  LighterObj ,  ALL  LighterNameType; 

FROM  SLCP  IMPORT  WaitForShipQueue; 

FROM  Ship  IMPORT  RoRoObj  ; 

FROM  Beach  IMPORT  BeachObj ,  ALL  BeachType; 

FROM  Builder  IMPORT  BeachBuilder ,  LighterBuilder, 

ShipBuilder ; 

FROM  RepMngr  IMPORT  RepManager; 

FROM  Global  IMPORT  ALL  SpotType; 

FROM  Convert  IMPORT  BeachTypeToStr ; 

FROM  writeLine  IMPORT  WriteLine,  WriteLineA,  WriteLineB, 

WriteLineC,  writeLineD; 
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TYPE 


OBJECT  StatsObj ; 

{  } 

ASK  METHOD  Objlnit; 

{  } 

VAR 

k  :  INTEGER; 

Beach  :  BeachObj ; 

Rec  :  SpotldleRecType; 

BEGIN 

Reps  :=  0; 

MeanTPut  : =  0.0; 


GrandMeanLCUinBQ  :  =  0.0 
GrandMeanLSVinBQ  : =  0.0 
GrandMeanCWFinBQ  : =  0.0 
GrandMeanLCUinSQ  :  =  0.0 
GrandMeanLSVinSQ  : =  0.0 
GrandMeanCWFinSQ  : =  0.0 


GrandMeanShipLCUSpotldle  : =  0.0; 
GrandMeanShipCWFSpotldle  :=  0.0; 
GrandMeanShipLoLoSpotldle  : =  0.0; 

NumBeaches  : =  ASK  BeachBuilder  numberln; 
NEW(GrandMeanBeachSpotIdleTime#  l..  NumBeaches); 

k  :  =  0  ; 

Beach  :=  ASK  BeachBuilder  First (); 

WHILE  Beach  <>  NILOBJ 

k  :  =  k  +  1  ; 
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NEW(Rec) ; 

Rec. Place  :=  ASK  Beach  BeachID; 

Rec . Time  : =  0.0; 

GrandMeanBeachSpotldleTime [k]  :=  Rec; 

Beach  :=  ASK  BeachBuilder  Next (Beach); 
END  WHILE; 

END  METHOD; 


{ 

ASK  METHOD  DumpStatS ( IN  OffloadTime  :  REAL) ; 

{ 

VAR 


Lighter 

JunkLighter 

Ship 

Beach 

• 

1 

LighterType 

NameOfShip 

TypeOfBeach 

iDOfBeach 


LighterOb j ; 
LighterObj ; 
RoRoOb j ; 

BeachOb j ; 
INTEGER; 

LighterNameType ; 
STRING; 

BeachType ; 
STRING; 


Count LCU 
Count LSV 
CountCWF 
CountLoLo 


INTEGER 

INTEGER 

INTEGER 

INTEGER 


TimeLCUinBQ  :  REAL 
TimeLSVinBQ  :  REAL 
TimeCWFinBQ  :  REAL 

TimeLCUinSQ  :  REAL 
TimeLSVinSQ  :  REAL 
TimeCWFinSQ  :  REAL 


} 

} 
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ShipLCUSpotldle  :  REAL; 
ShipCWFSpotldle  :  REAL; 
ShipLoLoSpOtldle  :  REAL; 

BeachSpotldle  :  REAL; 


BEGIN 

WriteLine ( "Entering  Stats  mod,  DumpStats  method. 
OffloadTime  =  "  + 

REALTOSTR { Of  f loadTime ) ) ; 


Count LCU  : =0 ; 
Count LSV  : =0 ; 
Count CWF  :=0; 
Count LoLo  :=0; 

TimeLCUinBQ  : =  o . 0 
TimeLSVinBQ  : =  0.0 
TimeCWFinBQ  : =  0.0 


TimeLCUinSQ  : =  0.0 
TimeLSVinSQ  : =  0.0 
TimeCWFinSQ  : =  0.0 


MeanLCUinBQ  : =  o . 0 
MeanLSVinBQ  : =  0.0 
MeanCWFinBQ  : =  0.0 

MeanLCUinSQ  : =  0.0 
MeanLSVinSQ  :=  0.0 
MeanCWFinSQ  : =  0.0 


ShipLCUSpotldle  :=  0.0; 
ShipCWFSpotldle  : =  0.0; 
ShipLoLoSpotldle  :=  0.0; 

MeanShipLCUSpotldle  :=  0.0; 
MeanShipCWFSpotldle  :=  0.0; 
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MeanShipLoLoSpotldle  :  =  0.0; 

BeachSpot Idle  : =  0.0; 
MeanBeachSpotldle  :  =  0.0; 


Reps  : =  Reps  +  l ; 

MeanTPut  :  =  MeanTPut  +  Of floadTime; 

Lighter  : =  ASK  LighterBuilder  First ( ) ; 

WHILE  Lighter  <>  NILOBJ 

LighterType  :=  ASK  Lighter  LighterTypeName; 

IF  (  LighterType  =  LCU1466)  OR  (LighterType 
LCU1610)  OR  (LighterType  =  LCU2000) 

TimeLCUinSQ  : =  TimeLCUinSQ  +  ASK  Lighter 
Time I nShipQueue ; 

TimeLCUinBQ  :=  TimeLCUinBQ  +  ASK  Lighter 
TimelnBeachQueue ; 

Count LCU  :=  Count LCU  +  1; 

ELS IF  (ASK  Lighter  LighterTypeName  =  LSV  ) 

TimeLSVinSQ  :=  TimeLSVinSQ  +  ASK  Lighter 
TimelnShipQueue; 

TimeLSVinBQ  : =  TimeLSVinBQ  +  ASK  Lighter 
TimelnBeachQueue; 

Count LSV  :=  CountLSV  +  1; 

ELSE 

TimeCWFinSQ  :=  TimeCWFinSQ  +  ASK  Lighter 
TimelnShipQueue ; 

TimeCWFinBQ  :=  TimeCWFinBQ  +  ASK  Lighter 
TimelnBeachQueue; 

Count CWF  :=  CountCWF  +  1; 

END  IF; 

Lighter  :=  ASK  LighterBuilder  Next (Lighter) ; 


END  WHILE; 


MeanLCUinBQ  :=  TimeLCUinBQ  /  FLOAT (Count LCU) ; 
MeanLSVinBQ  :=  TimeLSVinBQ  /  FLOAT ( Count LSV ) ; 
MeanCWFinBQ  :=  TimeCWFinBQ  /  FLOAT (Count CWF ) ; 

MeanLCUinSQ  :=  TimeLCUinSQ  /  FLOAT (Count LCU ) ; 
MeanLSVinSQ  :=  TimeLSVinSQ  /  FLOAT ( CountLSV) ; 
MeanCWFinSQ  :=  TimeCWFinSQ  /  FLOAT (Count CWF ) ; 

GrandMeanLCUinBQ  :=  GrandMeanLCUinBQ  +  MeanLCUinBQ; 
GrandMeanLSVinBQ  : =  GrandMecuiLSVinBQ  +  MeanLSVinBQ; 
GrandMeanCWFinBQ  : =  GrandMeanCWFinBQ  +  MeanCWFinBQ; 
GrandMeanLCUinSQ  :=  GrandMeanLCUinSQ  +  MeanLCUinSQ; 
GrandMeanLSVinSQ  : =  GrandMeanLSVinSQ  +  MeanLSVinSQ; 
GrandMeanCWFinSQ  :=  GrandMeanCWFinSQ  +  MeanCWFinSQ; 

Count LCU  : =0 ; 

Count CWF  :=0; 

Count LoLo  : =0 ; 


{  Determine  ship  spot  stats  } 

IF  (  Reps  =  1  ) 

WriteLineC("  "); 
writeLineC ( "  B )  ; 

WriteLineC(" . Idle  Ship  Spot  TimeStats 

WriteLineC ("  "); 

WriteLineC ("  "); 

WriteLineC ("Rep#  Ship  Name  Mean  LCU 
Mean  LoLo" ) ; 

END  IF; 


Ship  :=  ASK  ShipBuilder  First (); 
WHILE  Ship  <>  NILOBJ 


. " )  ; 

Mean  CWF 
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NameOfShip  :=  ASK  Ship  ShipName; 

FOR  i  :=  1  TO  (ASK  Ship  NumSpotS) 

IF  (  ASK  Ship  ShipSpot [i] .SpotClassif ication  =  LCU  ) 
ShipLCUSpotldle  :=  ASK  Ship 

ShipSpot [i] .TotalldleTime; 
Count LCU  :=  Count LSV  +  X; 

ELSIF (  ASK  Ship  ShipSpot [i] .SpotClassif ication  =  CWF  ) 
ShipCWFSpotldle  :=  ASK  Ship 

ShipSpot [i] .TotalldleTime; 
CountCWF  :=  CountCWF  +  1; 

ELSE 

ShipLoLoSpotldle  : =  ASK  Ship 

ShipSpot [i] .TotalldleTime; 
CountLoLo  :=  CountLoLo  +  1; 

END  IF; 

END  FOR; 

MeanShipLCUSpotldle  :=  ShipLCUSpotldle  / FLOAT (Count LCU ) ; 
MeanShipCWFSpo t Idle  :=  ShipCWFSpotldle  /  FLOAT ( CountCWF) ; 
MeanShipLoLoSpotldle  :=  ShipLoLoSpotldle  /  FLOAT (CountLoLo) ; 

GrandMeanShipLCUSpotldle  :=  GrandMeanShipLCUSpotldle 

+  MeanShipLCUSpotldle; 

GrandMeanShipCWFSpotldle  :=  GrandMeanShipCWFSpotldle 

+  MeanShipCWFSpotldle; 

GrandMeanShipLoLoSpotldle  : =  GrandMeanShipLoLoSpotldle 

+  MeanShipLoLoSpotldle; 

Wr i teLineC ( INTTOSTR ( Reps )  +  "  "  +  NameOfShip  + 

"  "  +  REALTOSTR (MeanShipLCUSpotldle)  + 

"  "  +  REALTOSTR (MeanShipCWFSpotldle)  + 

"  "  +  REALTOSTR (MeanShipLoLoSpotldle)); 
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Ship  :=  ASK  ShipBuilder  Next (Ship); 


END  WHILE; 


{  Determine  Beach  spot  stats  } 

IF  (  Reps  =  l  ) 

WriteLineD("  "); 

WriteLineD ( "  " ) ; 

WriteLineD(" . Idle  Beach  Spot  TimeStats . "); 

WriteLineD ("  "); 

WriteLineD ("  "); 

WriteLineD ( "Rep#  Beach  Make  Beach  ID  Mean 

Idle  Time"); 


END  IF; 
k  :=  0; 

Beach  :=  ASK  BeachBuilder  First  0; 

WHILE  Beach  <>  NILOBJ 

k  :  =  k  +  1; 

TypeOf Beach  :=  ask  Beach  BeachMake; 
iDOfBeach  :=  ASK  Beach  BeachlD; 

FOR  i  :=  l  TO  (ASK  Beach  NumSpots) 

BeachSpotldle  :=  BeachSpotldle  +  ASK  Beach 

BeachSpot[i] .TotalldleTime; 


END  FOR ; 

MeanBeachSpotldle  :=  BeachSpotldle  /  FLOAT (ASK  Beach 

NumSpots) ; 

WriteLineD (INTTOSTR( Reps)  +  "  "  + 

BeachTypeToStr ( TypeOf Beach)  +  "  "  + 
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iDOfBeach  +  "  *  + 

REALTOSTR(MeanBeachSpotldle) ) ; 

GrandMeanBeachSpotldleTime [k] .Time  :  = 

GrandMeanBeachSpotldleTime [k] .Time  +  MeanBeachSpotldle; 

BeachSpot Idle  : =  0.0; 

Beach  :=  ASK  BeachBuilder  Next (Beach); 

END  WHILE; 


IF  (  Reps  =  1  ) 

WriteLineA("  "); 

WriteLineA("  "); 

WriteLineA(" . Throughput  Stats . ") 

WriteLineA("  "); 

WriteLineA("  "); 

WriteLineA( "Rep#  Total  Time"); 

END  IF; 

WriteLineA(INTTOSTR(Reps)  +  "  "  + 

REALTOSTR (Of f loadTime) ) ; 


IF  (  Reps  =  l  ) 


writeLineB( "  "); 

WriteLineB( "  "); 

WriteLineB( " . 

WriteLineB("  "); 
WriteLineB("  "); 
WriteLineB ( "Rep# 

CWF  Mean  LCU 

WriteLineB ( " 

Beach 


Time  in  Queue  Stats 


Mean  LCU 
Mean  LSV 
Ship 
Beach 


Mean  LSV 
Mean  CWF" 
Ship 
Beach") ; 


") 


Mean 

Ship 


END  IF; 
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WriteLineB(INTTOSTR(Reps)  +  "  "  + 

REALTOSTR(MeanLCUinSQ)  + 

"  "  +  REALTOSTR(MeanLSVinSQ)  +  "  "  + 

REALTOSTR(MeanCWFinSQ)  + 

"  "  +  REALTOSTR (MeanLCUinBQ)  +  "  "  + 

REALTOSTR(MeanLSVinBQ)  + 

"  "  +  REALTOSTR (MeanCWFinBQ) ) ; 


IF  (  ASK  RepManager  OutputToScreen  ) 


OUTPUT; 

OUTPUT; 

OUTPUT ( " . Throughput  Stats . "); 

OUTPUT; 

OUTPUT; 

END  IF; 

OUTPUT; 

OUTPUT ( " Rep#  Total  Time " ) ; 

OUTPUT (INTTOSTR( Reps)  +  "  "  +  REALTOSTR (Of floadTime) ) ; 

OUTPUT; 

OUTPUT; 

{  If  more  than  one  ship,  must  cycle  through  list  to 

determine  if  Last Load  =  T  for  each.  If  true,  and  RepMngr 
is  Done,  then  simulation  is  truely  finished  and  Stats  can 
be  dumped.  If  any  ships  still  have  vehicles,  then  only  the 
current  ship  can  be  reset  and  must  ask  SLOP  to  GetLighter. 
GetLighter  must  be  modified  to  cycle  through  all  ships 
in  list  when  CheckSpots  is  fired.  } 

IF  (ASK  RepManager  Done) 

WriteLineA ( "  " ) ; 

WriteLineA("  Total  number  of  reps  completed  =  "  + 

INTTOSTR ( Reps ) ) ; 
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WriteLineB("  "); 

WriteLineB("  Total  number  of  reps  completed  =  "  + 
INTTOSTR ( Reps ) ) ; 

WriteLineC("  "); 

WriteLineC("  Total  number  of  reps  completed  =  "  + 
INTTOSTR (Reps) ) ; 

WriteLineD ( "  " ) ; 

WriteLineD  ( "  Total  number  of  reps  completed  =  "  + 
INTTOSTR (Reps) ) ; 

WriteLineD ( "  " ) ; 

MeanTPut  :=  MeanTPut  /  FLOAT ( Reps ) ; 

GrandMeanLCUinBQ  :=  GrandMeanLCUinBQ  /  FLOAT ( Reps ) ; 
GrandMeanLSVinBQ  :=  GrandMeanLSVinBQ  /  FLOAT ( Reps ) ; 
GrandMeanCWFinBQ  :=  GrandMeanG^FinBQ  /  FLOAT ( Reps ) ; 
GrandMeanLCUinSQ  :=  GrandMeanLCUinSQ  /  FLOAT ( Reps ); 
GrandMeanLSVinSQ  :=  GrandMeanLSVinSQ  /  FLOAT ( Reps ) ; 
GrandMeanCWFinSQ  :=  GrandMeanCWFinSQ  /  FLOAT ( Reps ) ; 

GrandMeanShipLCUSpotldle  :=  GrandMeanShipLCUSpotldle 

/  FLOAT (Reps) ; 

GrandMeanShipCWFSpotldle  :=  GrandMeanShipCWFSpotldle 

/  FLOAT ( Reps ) ; 

GrandMeanShipLoLoSpotldle  :=  GrandMeanShipLoLoSpotldle 

/  FLOAT (Reps) ; 


FOR  i  :=  l  TO  NumBeaches 

GrandMeanBeachSpot IdleTime [ i] . Time  : = 
GrandMeanBeachSpotldleTime [i] .Time  /  FLOAT ( Reps ) ; 

WriteLineD ( "Grand  Mean  For  Beach  Spot  Idle  Time  =  " 

+  REALTOSTR (GrandMeanBeachSpotldleTime [i] .Time) 
+  "  For  Beach  ID  =  " 

+  GrandMeanBeachSpotldleTime [i] .Place)  ; 


END  FOR; 

writeLineA( "Mean  Throughput  Time  =  "  +  REALTOSTR (MeanTPut)); 
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H 


WriteLineB ( "Grand  Mean  Por  LCU  in  Beach  Queue  = 

+  REALTOSTR (GrandMeanLCUinBQ) ) ; 

WriteLineB( "Grand  Mean  For  LSV  in  Beach  Queue  =  " 

+  REALTOSTR (GrandMeanLSVinBQ) ) ; 

WriteLineB ( "Grand  Mean  For  CWF  in  Beach  Queue  =  " 

+  REALTOSTR (GrandMeanCWFinBQ) ) ; 

WriteLineB ("Grand  Mean  For  LCU  in  Ship  Queue  =  " 

+  REALTOSTR (GrandMeanLCUinSQ) ) ; 

WriteLineB ( "Grand  Mean  For  LSV  in  Ship  Queue  =  " 

+  REALTOSTR (GrandMeanLSVinSQ) ) ; 

WriteLineB ("Grand  Mean  For  CWF  in  Ship  Queue  =  " 

+  REALTOSTR (GrandMeanCWFinSQ) ) ; 

writeLineC( "Grand  Mean  For  LCU  Ship  Spot  Idle  Time  =  " 

+  REALTOSTR (GrandMeanShipLCUSpot Idle) ) ; 

writeLineC( "Grand  Mean  For  CWF  Ship  Spot  Idle  Time  =  " 

+  REALTOSTR (GrandMeanShipCWFSpotldle) ) ; 

WriteLineC( "Grand  Mean  For  LoLo  Ship  Spot  Idle  Time  =  " 
+  REALTOSTR (GrandMeanshipLoLoSpotldle) ) ; 

OUTPUT ("Mean  Throughput  Time  =  "  +  REALTOSTR (MeanTPut) ) 

OUTPUT; 

OUTPUT; 


ELSE 

Of f loadTime  : =  0.0; 

{Reset  all  lighters} 

Lighter  : =  ASK  LighterBuilder  First ( ) ; 

WHILE  Lighter  <>  NILOBJ 

ASK  Lighter  TO  ResetLighterStats; 

Lighter  :=  ASK  LighterBuilder  Next (Lighter) ; 
END  WHILE; 

{Reset  the  RoRo} 
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Ship  :=  ASK  ShipBuilder  First (); 

WHILE  Ship  <>  NILOBJ 

ASK  Ship  TO  ResetShipStats; 

Ship  :=  ASK  ShipBuilder  Next (Ship); 

END  WHILE; 

ASK  SLOP  TO  ResetSLCP; 

{Reset  all  beaches} 

Beach  : =  ASK  BeachBuilder  First ( ) ; 
WHILE  Beach  <>  NILOBJ 

ASK  Beach  TO  ResetBeachStats; 

Beach  :=  ASK  BeachBuilder  Next (Beach); 
END  WHILE; 


END  IF; 

END  METHOD; 

END  OBJECT; 

END  MODULE. 

DEFINITION  MODULE  WriteLine; 

{ 

Module  Name:  WriteLine  Last  Modified:  20  Jul  93 

Author:  M.  Bailey  Modified  by:  J.  S.  Noel 

Prof .  NPGS 

DESCRIPTION:  Defines  the  WriteLine  procedure  for  output  to 
the  file  "Sim. Out". 

} 


PROCEDURE  WriteLine (IN  String  :  STRING); 
PROCEDURE  Wr iteLineA ( IN  String  :  STRING); 
PROCEDURE  WriteLineB(IN  String  :  STRING); 
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PROCEDURE  WriteLineCdN  String  :  STRING); 
PROCEDURE  WriteLineD(IN  String  :  STRING); 

END  MODULE. 


IMPLEMENTATION  MODULE  WriteLine; 

{ 

Module  Name:  WriteLine  Last  Modified:  20  Jul  93 

Author:  M.  Bailey  Modified  by:  J.  S.  Noel 

Prof .  NPGS 

DESCRIPTION:  Implements  the  WriteLine  procedure  for  output 

to  the  file  "Sim. Out". 

} 

FROM  IOMod  IMPORT  FileUseType (Output ) ; 

FROM  IOMod  IMPORT  StreamObj; 

FROM  utilMod  IMPORT  DateTime; 


VAR 

DT  :  STRING; 

TraceStream  :  StreamObj ; 

TraceStreamA  :  StreamObj ; 

TraceStreamB  :  StreamObj ; 

TraceStreamC  :  StreamObj ; 

TraceStreamD  :  StreamObj ; 

{  - ---} 

PROCEDURE  WriteLine (IN  String  :  STRING); 

{  } 

BEGIN 

IF  (TraceStream  =  NILOBJ) 

NEW (TraceStream) ; 

ASK  TraceStream  TO  Open ("sim. out" ,  Output); 

DateTime (DT) ; 
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ASK  TraceStream  TO  WriteString (DT) ; 
ASK  TraceStream  TO  WriteLn; 

ASK  TraceStream  TO  WriteLn; 

END  IF; 

ASK  TraceStream  TO  WriteString (String) ; 
ASK  TraceStream  TO  WriteLn; 

END  PROCEDURE; 


{ 

PROCEDURE  WriteLineA ( IN  String  :  STRING); 

{ 

BEGIN 

IF  (TraceStreamA  =  NILOBJ) 
new ( Traces treamA) ; 

ASK  TraceStreamA  TO  Open ( "Total . out" ,  Output); 
DateTime(DT) ; 

ASK  TraceStreamA  TO  WriteString (DT) ; 

ASK  TraceStreamA  TO  WriteLn; 

ASK  TraceStreamA  TO  WriteLn; 

END  IF; 

ASK  TraceStreamA  TO  WriteString (String) ; 

ASK  TraceStreamA  TO  WriteLn; 

END  PROCEDURE; 


{ 

PROCEDURE  WriteLineB(IN  String  :  STRING); 

{ 

BEGIN 

IF  (Traces treamB  =  NILOBJ) 

NEW (Traces treamB) ; 

ASK  TraceStreamB  TO  Open ("Queue. out " ,  Output); 
DateTime(DT) ; 


ASK  TraceStreaxnB  TO  WriteString (DT) ; 
ASK  TraceStreamB  TO  WriteLn; 

ASK  TraceStreamB  TO  WriteLn; 

END  IF; 

ASK  TraceStreamB  TO  WriteString (String) ; 
ASK  TraceStreamB  TO  WriteLn; 

END  PROCEDURE; 


} 

PROCEDURE  WriteLineCdN  String  :  STRING); 

{  } 

BEGIN 

IF  ( Traces treamC  =  NILOBJ) 

NEW(TraceStreamC)  ; 

ASK  Traces treamC  TO  Open (" SSpot . out " ,  Output); 

DateTime (DT) ; 

ASK  TraceStreamC  TO  WriteString (DT) ; 

ASK  TraceStreamC  TO  WriteLn; 

ASK  TraceStreamC  TO  WriteLn; 

END  IF; 

ASK  TraceStreamC  TO  WriteString (String) ; 

ASK  TraceStreamC  TO  WriteLn; 

END  PROCEDURE; 

} 
} 

BEGIN 

IF  (TraceStreamD  =  NILOBJ) 

NEW ( Traces treamD) ; 

ASK  TraceStreamD  TO  Open("BSpot .out" ,  Output); 

DateTime (DT) ; 


{ 

PROCEDURE  WriteLineD(IN  String  :  STRING); 
{ 
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ASK  TraceStreamD  TO  WriteString (DT) ; 
ASK  TraceStreamD  TO  WriteLn; 

ASK  TraceStreamD  TO  WriteLn; 

END  IF; 

ASK  TraceStreamD  TO  WriteString (String) ; 
ASK  TraceStreamD  TO  WriteLn; 

END  PROCEDURE; 


END  MODULE . 
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APPENDIX  D  SAMPLE  INPUT  PILES 


. . . . BchName .  dat . - . 

4  #  Number  of  Beaches  in  this  file/simulation  scenario 


SouthBeach 

-  > 

dummy 

\\ 

# 

Name 

of 

Beach. 

Must 

be 

of 

STRING. 

Admin 

-  > 

dummy 

\\ 

# 

Name 

of 

Beach. 

Must 

be 

of 

STRING. 

Army 

-  > 

dummy 

\\ 

# 

Name 

of 

Beach. 

Must 

be 

of 

STRING . 

Navy 

-  > 

dummy 

w 

# 

Name 

of 

Beach . 

Must 

be 

of 

STRING. 

This  file  contains  the  names  of  the  four  beaches  in  the 
validation  scenario.  The  format  is  as  follows: 


NumBeaches  . . .  The  number  of  beach  names  to  be  read. 
BeachName  ->  ...  Name  of  beach. 


The  format  is  the  same  for  all  input  files.  The  first 
line  in  the  file  contains  the  number  of  records  to  be  read. 
The  first  line  of  each  record  contains  the  record 
identifier,  such  as  the  beach  name,  followed  by  the  symbol 
"  ->  The  lines  that  follow  contain  the  rest  of  the 

record.  The  end  of  a  record  is  indicated  by  a  double  slash 
"  \\  " .  Comments  are  preceded  by  a  "  #  "  symbol. 

. . . - . .  .  BchType .  dat . - . . 


4 


#  Number  of  Beach  records  in  this  file. 


SouthBeach 

BareBeach 

2 


->  #  Beach  ID.  Must  be  STRING. 

#  Type  of  Beach.  Must  be  of  BeachType. 

#  Number  of  Spots.  Must  be  INTEGER. 
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LCU 

T 


#  Spot  Type.  Must  be  SpotType. 

#  Spot  Free.  Must  be  BOOLEAN. 


#  Spot  Type.  Must  be  SpotType. 

#  Spot  Free.  Must  be  BOOLEAN. 

#  Distance  from  SLOP.  Must  be  REAL. 

#  Distance  from  RefuelArea.  Must  be  REAL 


Admin  - : 
Float ingCWPier 
l 


#  Beach  ID.  Must  be  STRING. 

#  Type  of  Beach.  Must  be  of  BeachType. 

#  Number  of  Spots.  Must  be  INTEGER. 


#  Spot  Type.  Must  be  SpotType. 

#  Spot  Free.  Must  be  BOOLEAN. 

#  Distance  from  SLCP.  Must  be  REAL. 

#  Distance  from  RefuelArea.  Must  be  REAL 


Army  - ; 
Float ingCWPier 
2 


#  Beach  ID.  Must  be  string. 

#  Type  of  Beach.  Must  be  of  BeachType. 

#  Number  of  Spots.  Must  be  integer. 

#  Spot  Type.  Must  be  SpotType. 

#  Spot  Free.  Must  be  BOOLEAN. 

#  Spot  Type.  Must  be  SpotType. 

#  Spot  Free.  Must  be  BOOLEAN. 

#  Distance  from  SLCP.  Must  be  REAL. 

#  Distance  from  RefuelArea.  Must  be  REAL 


Navy 

Float ingCWPier 
l 


#  Beach  ID.  Must  be  STRING. 

#  Type  of  Beach.  Must  be  of  BeachType. 

#  Number  of  Spots.  Must  be  INTEGER. 


#  Spot  Type.  Must  be  SpotType. 

#  Spot  Free.  Must  be  BOOLEAN. 
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6.0  #  Distance  from  SLCP.  Must  be  REAL. 

6.0  #  Distance  from  RefuelArea.  Must  be  REAL. 

\\ 


LtName . dat 


12  #  Number  of  Lighters  in  this  file/simulation  scenario 


ALFA  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
bravo  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
CHARLIE  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
DELTA  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
ECHO  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
FOXTROT  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
GOLF  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
HOTEL  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
INDIA  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
JULIET  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
KILO  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 
LIMA  ->  dummy  \\#  ID  of  Lighter.  Must  be  a  unique  STRING. 


LtType . dat 


12  #  Number  of  Lighter  records  in  this  file. 


ALFA  -> 

LCU2000 
LCU 
12.0 
10.0 
10 

92000.0 

41.6 

0.25 


#  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType . 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 
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w 

BRAVO 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 

41.6 

0.25 

\\ 

CHARLIE 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 

41.6 

0.25 

\\ 

DELTA 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 

41.6 

0.25 

\\ 

ECHO 

LCU2000 

LCU 

12.0 

10.0 

10 

92000.0 


->  #  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  Spot Type. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 


->  I  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  real. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 

->  #  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  real. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  real. 


->  #  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 
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41.6 

0.25 


\\ 


#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 


FOXTROT 

LCU1610 

LCU 

12.0 

10.0 

4 

3290.0 

36.0 

0.25 

\\ 


->  #  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 


GOLF 

LCU1610 

LCU 

12.0 

10.0 

3 

3290.0 

36.0 

0.25 

\\ 


->  #  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  real. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  real. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 


HOTEL  -  > 
LSV 
LCU 
10.6 


#  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 


10.0 

25 

165000.0 

145.8 

0.25 

\\ 


#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 


INDIA  ->  I  ID  of  Lighter.  Must  be  a  unique  STRING  type. 
CWF31  #  Type  of  Lighter.  Must  be  of  LighterNameType. 
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CWF 

6.0 

3.0 

15 

1000.0 

20.8 

0.25 

\\ 

JULIET 

CWF31 

CWF 

6.0 

3.0 

15 

1000.0 

20.8 

0.25 

\\ 

KILO  -> 

CWF31 
CWF 
6.0 
3.0 
15 

1000.0 

20.8 

0.25 

\\ 

LIMA  -> 

CWF31 

CWF 

6.0 

3.0 

15 

1000.0 

20.8 

0.25 

\\ 


#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Mast  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Mast  be  REAL. 


#  ID  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType . 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 


#  id  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 


#  id  of  Lighter.  Must  be  a  unique  STRING  type. 

#  Type  of  Lighter.  Must  be  of  LighterNameType. 

#  Spot  Type  Required.  Must  be  SpotType. 

#  Max  Speed.  Must  be  REAL. 

#  Full  Load  Speed.  Must  be  REAL. 

#  Max  Load  in  #  of  vehicles.  Must  be  INTEGER. 

#  Fuel  Capacity  in  gallons.  Must  be  REAL. 

#  Burn  Rate  in  Gallons  per  hour.  Must  be  REAL. 

#  Min  Fuel  expressed  in  percent.  Must  be  REAL. 
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Notes:  a.  LighterNameType  =  (LCU1466,  LCU1610.  LCU2000, 

CWFll ,  CWF21,  CWF31 ,  LSV) . 

These  are  the  only  options  for  LighterNameType . 

b.  SpotType  =  (LCU,  CWF,  LoLo) .  This  refers  to  the 
type  of  spot  required  for  mooring  by  a  lighter. 
An  LSV  uses  an  LCU  spot  for  mooring  to  the  RRDF, 
so  this  would  be  indicated  in  this  field. 


- RFAName.dat - 

1  #  Number  of  Refuel  Areas  in  this  file/simulation  scenario 

FuelDepot  ->  dummy  \\  #  Name  of  Refuel  Area.  Must  be  of 

STRING  type. 

. . — RFAType .  dat . - . 

l  #  Number  of  Refuel  Area  records  in  this  file. 


FuelDepot  - > 

STRING  type. 

2 

6.0 


T 


#  Name  of  Refuel  Area.  Must  be  of 

#  Number  of  spots.  Must  be  INTEGER. 

#  Distance  from  Ship.  Must  be  REAL. 

#  For  each  spot  there  must  be  a  data 
set.  For  2  spots,  we  need  two 
BOOLEAN  expressions  in  the  following 
two  fields.  If  there  were  three 
spots,  There  would  be  three 

"Spot Free"  fields  in  this  record. 

#  Spot  Free.  Must  be  BOOLEAN. 


T 


#  Spot  Free.  Must  be  BOOLEAN. 
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3500.0 


#  Fuel  pump  rate  in  gallons  per  hour. 
Must  be  REAL. 

\\ 


ShpName . dat 


1  #  Number  of  Ships  in  this  file/simulation  scenario 


Belatrix  ->  dummy  \\  #  Name  of  Ship.  Must  be  of  STRING 

type. 


ShpType . dat 


l  #  Number  of  Ship  records  in  this  file. 


Belatrix  ->  #  Name  of  Ship.  Must  be  of  STRING 

type. 

SSR  #  Ship  Type.  Must  be  ShipTypeType  (  SSR,  NSSR  ) . 

6.0  #  Distance  from  BLCP.  Must  be  REAL. 


3 

# 

Number  of 

spots . 

Must  be  INTEGER 

LCU 

# 

Spot  Type. 

Must 

be  SpotType. 

T 

# 

Spot  Free. 

Must 

be  BOOLEAN. 

CWF 

# 

Spot  Type. 

Must 

be  SpotType. 

T 

# 

Spot  Free. 

Must 

be  BOOLEAN. 

LoLo 

T 


#  Spot  Type.  Must  be  SpotType. 

#  Spot  Free.  Must  be  BOOLEAN. 


60 

0 

834 


\\ 


#  Number  of 

#  Number  of 

#  Number  of 


LoLo  vehicles.  Must  be  INTEGER. 

RRDF  Vehicles.  Must  be  INTEGER. 

Any  Spot  vehicles.  Must  be  INTEGER. 
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Ship  type  is  eirher  self-sustaining  (SSR) ,  or  non-self 
sustaining  (NSSR) .  These  are  the  only  two  options. 

For  each  spot  in  the  record,  two  fields  must  appear: 

1.  SpotType,  must  be  of  type  SpotType  which  is  either 
LCU,  CWF,  or  LoLo.  These  are  the  only  options  for 
this  field. 

2.  SpotFree,  indicates  the  status  of  the  spot,  normally 
the  spot  would  be  empty  at  the  start  of  a  simulation 
run,  thus,  indicated  by  a  "T"  for  TRUE. 

The  number  of  vehicles  on  the  ship  can  be  partitioned 
into  three  sets.  For  example,  in  the  set  above  there  are  a 
total  of  894  vehicles  onboard.  Of  those,  60  must  be 
offloaded  from  the  LoLo  spot,  zero  are  may  be  removed  from 
the  RRDF  only,  and  834  can  be  removed  from  any  spot,  or  the 
first  spot  available. 
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APPENDIX  ■  SAMPLE  OfJTPPT  FILES 


This  appendix  contains  a  complete  set  of  output  files. 
The  sample  files  below  are  the  results  of  ten  replications 
of  the  validation  scenario.  The  files  themselves  are  self 
explanitory,  all  times  are  in  minutes. 


. Total .out 

. . — Throughput  Stats 

Rep#  Total  Time 

1  5795.406696 

2  4516.278981 

3  5049.667063 

4  4212.945852 

5  4342.143585 

6  4598.425586 

7  4306.958894 

8  5356.148307 

9  4627.004724 

10  4096.678710 

Total  number  of  reps  completed  =  10 
Mean  Throughput  Time  =  4690.165840 


BSpot . out 


. Idle  Beach  Spot  Time  Stats . . 

Rep#  Beach  Make  Beach  ID  Mean  Idle  Time 

l  BareBeach  NorthBeach  1851.511594 

l  FloatingCWPier  Admin  2696.831036 

1  FloatingCWPier  Army  3044.404815 
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1 

Float ingCWPier 

Navy 

2706.889934 

2 

BareBeach 

NorthBeach 

2126.357278 

2 

Float ingCWPier 

Admin 

2633.401745 

2 

Float ingCWPier 

Army 

2666.989835 

2 

FI oat ingCWPier 

Navy 

0.000000 

3 

BareBeach 

NorthBeach 

2214.400175 

3 

Float ingCWPier 

Admin 

2615.639354 

3 

Float ingCWPier 

Army 

2678.884777 

3 

Float ingCWPier 

Navy 

0.000000 

4 

BareBeach 

NorthBeach 

2030.798808 

4 

Float ingCWPier 

Admin 

2660.519865 

4 

Float ingCWPier 

Army 

2757.632933 

4 

Float ingCWPier 

Navy 

0.000000 

5 

BareBeach 

NorthBeach 

2056.886539 

5 

Float ingCWPier 

Admin 

2778.227232 

5 

Float ingCWPier 

Army 

3207.377480 

5 

Float ingCWPier 

Navy 

0.000000 

6 

BareBeach 

NorthBeach 

2289.250141 

6 

FI oat ingCWPier 

Admin 

2956.250880 

6 

Float ingCWPier 

Army 

2864.941143 

6 

FI oat ingCWPier 

Navy 

0.000000 

7 

BareBeach 

NorthBeach 

2098.334342 

7 

Float ingCWPier 

Admin 

2689.334808 

7 

Float ingCWPier 

Army 

3177.835989 

7 

Float ingCWPier 

Navy 

0.000000 

8 

BareBeach 

NorthBeach 

2368.197230 

8 

Float ingCWPier 

Admin 

3099 . 115844 

8 

Float ingCWPier 

Army 

3013.179778 

8 

Float ingCWPier 

Navy 

0 . 000000 

9 

BareBeach 

NorthBeach 

2420.594112 

9 

Float ingCWPier 

Admin 

2873.591649 

9 

Float ingCWPier 

Army 

3006 . 716735 

9 

Float ingCWPier 

Navy 

0 . 000000 

10 

BareBeach 

NorthBeach 

2186.314462 

10 

Float ingCWPier 

Admin 

2618.761722 

10 

Float ingCWPier 

Army 

3208.601058 

10 

Float ingCWPier 

Navy 

0.000000 

Total  number  of  reps  completed  =  10 
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Grand  Mean  For  Beach  Spot  Idle  Time  =  2164.264468  For  Beach 
ID  =  NorthBeach 

Grand  Mean  For  Beach  Spot  Idle  Time  =  2762.167413  For  Beach 
ID  =  Admin 

Grand  Mean  For  Beach  Spot  Idle  Time  =  2962.656454  For  Beach 
ID  =  Army 

Grand  Mean  For  Beach  Spot  Idle  Time  =  270.688993  For  Beach 
ID  =  Navy 

. SSpot .out . 


. . Idle  Ship  Spot 

Rep#  Ship  Name  Mean  LCU 

1  Belatrix  1983.547568 

2  Belatrix  1512.667104 

3  Belatrix  2438.643103 

4  Belatrix  2349.907577 

5  Belatrix  1469.847130 

6  Belatrix  1950.243928 

7  Belatrix  820.284977 

8  Belatrix  1468.487069 

9  Belatrix  2014.772655 

10  Belatrix  1474.539864 


Time  Stats . 

Mean  CWF  Mean  LoLo 

2274.516363  1541.758145 

1215.405897  1984.996518 

2187.915981  1553.953693 

1956.123552  1665.716019 

1351.808132  2062.091047 

1334.895501  2027.822743 

1445.356970  1481.796293 

2564.665516  1515.234788 

1953.579125  1429.237818 

1584.341778  1938.257845 


Total  number  of  reps  completed  =  10 

Grand  Mean  For  LCU  Ship  Spot  Idle  Time  =  1748.294097 
Grand  Mean  For  CWF  Ship  Spot  Idle  Time  =  1786.860881 
Grand  Mean  For  LoLo  Ship  Spot  Idle  Time  =  1720.086491 
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Queue . out 


Time  in  Queue  Stats 


Rep# 

Mean  LCU 

Mean 

LSV 

Mean  CWF 

Ship 

Ship 

Ship 

1 

457.868142 

630.036495 

582.470282 

2 

716.492200 

535.805339 

433.802158 

3 

757.966480 

393.900755 

466.858381 

4 

809.126943 

285.984057 

503.752261 

5 

902.481843 

587.302477 

398.722487 

6 

1099.275997 

518.580067 

680.860167 

7 

828.091272 

552.074930 

456.557370 

8 

1197.924213 

529.680445 

465.659741 

9 

995.634134 

716.634971 

547.029459 

10 

983.139182 

434.378531 

391.346992 

Rep# 

Mean  LCU 

Mean  LSV 

Mean  CWF 

Beach 

Beach 

Beach 

1 

0.000000 

0.000000 

0. 

000000 

2 

0.000000 

0.000000 

0. 

000000 

3 

0.000000 

0.000000 

0. 

000000 

4 

0.000000 

0.000000 

0. 

000000 

5 

0.000000 

0.000000 

0. 

000000 

6 

0.000000 

0.000000 

0. 

000000 

7 

0.000000 

0.000000 

0. 

000000 

8 

0.000000 

0 . 000000 

0. 

000000 

9 

0.000000 

0.000000 

0. 

000000 

10 

0.000000 

0.000000 

0. 

000000 

Total 

number  of  reps  completed  = 

10 

Grand  Mean  For  LCU  in  Beach  Queue  =  0.000000 

Grand  Mean  For  LSV  in  Beach  Queue  =  0.000000 

Grand  Mean  For  CWF  in  Beach  Queue  =  0.000000 

Grand  Mean  For  LCU  in  Ship  Queue  =  874.800041 

Grand  Mean  For  LSV  in  Ship  Queue  -  518.437807 

Grand  Mean  For  CWF  in  Ship  Queue  =  492.705930 
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INITIAL  DISTRIBUTION  LIST 


1.  Defense  Logistics  Studies  Information  Exchange  2 

U.S.  Army  Logistics  Management  Center 
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Alexandria,  VA  22304-6145 

3.  Deputy  Chief  of  Naval  Operations  (Logistics)  l 
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Washington,  DC  20350 

4.  ATTN:  Captain  Steve  Christy  1 

DoD  Joint  Test  Directorate 

JLOTS  III 

Bunker  101 

Fort  story,  VA  23459 

5.  Library,  Code  0142  2 

Naval  Postgraduate  School 

Monterey,  CA  93943-5002 

6.  Professor  William  G.  Kemple,  Code  OR/KE  l 

Naval  Postgraduate  School 

Monterey,  CA  93943-5002 

7.  Professor  Keebom  Kang,  Code  AS/KK  l 

Naval  Postgraduate  School 

Monterey,  CA  93943-5002 

8.  Professor  David  Schrady,  Code  OR/SO  l 

Naval  Postgraduate  School 

Monterey,  CA  93943-5002 
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9. 


1 


LPEILD 

J-4,  The  Joint  Staff 
Pentagon 

Washington  DC,  20318-4000 

10.  Mobility  Division  l 

J-4,  The  Joint  Staff 

pentagon 

Washington  DC,  20318-4000 

11.  Lieutenant  Jack  S.  Noel  2 

Department  Head  School,  Class  131 

Newport,  RI  02841 
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